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1? IDENTIFICATION 
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16 

4 PRODUCT CODE: AC~8781F -MC 

Md PRODUCT NAME : CZDZAFO D211 LN ASYNC MUX TSTS 
$3 PRODUCT DATE: NOVEMBER, 1979 
ti MAINTAINER: DIAGNOSTIC ENGINEERING 
36 
27 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGL WITHOUT 
28 NOTICE ~ SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
29 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
32 NO pat teed eS IS ASSUMED FOR THE USE OR RELIABILITY 


33 OF SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL 
OR ITS AFFILIATED COMPANIES 


7 COPYRIGHT (C) 1976,1979 BY DIGITAL EQUIPMENT CORPORATION 


40 THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
42 DIGITAL PDP UNI BUS MAS SBUS 
44 DEC DECUS DECTAPE 
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SEQ 0002 


ABSTRACT 


THE FUNCTION OF THE D211 DIAGNOSTICS IS TO VERIFY THE OPTION OPERATES 
ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS ALSO VERIFY THAT THE D211 
OPERATES IN ITS ENVIRONMENT SUCH AS THE SYSTEM IN WHICH IT IS INSTALLED. 


PARAMETERS MAY BE pee? TO THE PROGRAM BY EITHER ‘AUTO SIZING’ OR 
INPUT FROM THE USER ON THE CONSOLE BY HAVING SWOO=1 AT START TIME. AUTO 
SIZING WILL BE DONE ONLY MoHE FIRST TIME THE PROGRAM IS STARTED AND 
SWO7=0 AND SwWOO=0 AND SWO3=0. THE AUTOSIZER IS DESIGNED TO DETECT 
DZ11 DEVICE ADDRESSES ae VECTORS AND TO DETERMINE WHETHER THE DZ11 THAT 


BOARD. 
.5). CONSOLE INPUT MAY BE CONTROLLED AT ANY 
SWOO. SWOS, SWO4, AND SWO6 (SEE SEC. 4.1.1 
FOR A DETAILED DESCRIPTION N OF THESE SwITCHES). 


CURRENTLY THERE IS ONE STANDALONE DIAGNOSTIC (CZDZA), ONE SYSTEM 
cite g 1 eae AND AN ONLINE OVERLAY FOR DZITA (ITEP) = DZDZ8. 


CZDZA WILL TEST ALL _— OF THE D211 SUCH AS CABLES, DIST PNL. 
INTERFACE MODULE ITSELF 


REQUIREMENTS 


EQUIPMENT 


ANY PDP11 FAMILY CPU (WITH MINIMUM 8K MEMORY) 
ze 33 (OR EQUILIVALENT FOR CONSOLE) 


D2Z1 INTERFACE MODULE (M7819(EIA), M7814(20MA)) 

H3271 STAGGERED TURNAROUND CONNECTOR FOR EIA cone 

H3190 STAGGERED TURNAROUND CONNECTOR FOR 20MA MODUL 

H325 CABLE TURNAROUND AND DIST PNL_TESTING FOR ELA eI MODULE . 
H315 THIS MAY BE SUBSITUTED FOR 325. 


NOTE: A STAGGERED TURNAROUND CONNECTOR IS NEEDED IN ORDER TO TEST THE 
PARIiY AND BREAK LOGIC. 
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STORAGE 


PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT WHERE ABL AND BOOTSTRAP LOADER 
RESIDE. LOCATION 1500 THRU 2000 ARE ESPECIALLY TO BE NOTED AND TO BE 
UNTOUCHED BY OPERATOR AFTER PARAMCTERS HAVE BEEN INPUT FROM CONSOLE 
ite th OR AFTER THE ‘AUTO SIZING' HAS REEN DONE. THESE LOCATIONS 
Y BE CHANGED IF THE USER UNDERSTANDS THEIR MEANING AND DIFFERENT 
PARAMETERS ARE REQUIRED. 


LOADING PROCEEDURE 

ME THOD 

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE ey USING THE ABSOLUTE 
LOADER. NOTE: IF — THE DIAGNOSTICS ARE ON MEDIA SUCH AS DISK 
-MAGTAPE ,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTION FOR THE MONITOR 
WHICH HAS BEEN PROVIDED ON THAT SPECIFIC MEDIA. 

ABSOLUTE LOADER STARTING ADDRESS *500 


MEMORY * SIZE 


4K 17 
8K 37 
12k 57 
16K 77 
20k 117 
24K 137 
28k 157 


PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 
(ALSO PLACE ‘HALT’ Sw UP) 


DEPRESS ‘LOAD ADDRESS’ KEY ON CONSOLE AND RELEASE. 


DEPRESS ‘START KEY" ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW BE 
LOADING INTO CPU) 


SEQ 0003 
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127 
STARTING PROCEEDURE 


A. SET SWITCH REGISTER TO 000200 
8. PRESS ‘LOAD AD AND RELEASE 
C. $12 OR SET SWOO=1 FOR USER PARAMETER 
RMINAL. ON FIRST START IF SWO7=1 AND SwO0=0 
THE PROGRAM WILL DEFAULT TO CONSOLE PARAMETER INPUT (Su0d=1), 
DEPRESS ‘START KEY" AND RELEASE, THE PROGRAM WILL TYPE MAINDEC NAME 
AND PROGRAM NAME (IF THIS WAS THE FIRST START UP OF THE PROGRAM OR 
PARAMETERS WERE CHANGED By SWOO=1) AND ALSO THE FOLLOWING: 


"MAP OF DZ11 STATUS’ 
1500 160100 


ee a ad ot ot ot ot I 
BIKAKAYLS SS 


Ww 
> °) 


000005 
000377 
017470 
000000 


THE ABO ONLY AN EXAMPLE! sy WOULD INDICATE THE STATUS’ TABLE 
STARTING ADD. 100 IN THE PROGRAM. THE STATUS TABLE MUST BE 
VERIFIED BY THE USER IF AUTO IS DONE. FOR INFORMATION OF STATUS 
a SEE SECTION 8.4 FOR HELP 

THE PROGRAM WILL TYPE ‘RUNNING’ AND PROCEED TO RUN THE DIAGNOSTIC. 


CONTROL SWITCH SETTINGS 


IF THERE IS NO REAL SWR (177570); SWR MAY BE MODIFIED AT 
LOC:176 OR BY HITTING CONTROL °'G’’ <*G> ON CONSOLE TERMINAL. 


HALT ON ERROR 

LOOP ON CURRENT TEST 

INHIBIT ERROR PRINT OUT 

INHIBIT **ALL** TYPE OUT/BELL ON ERROR. 

INHIBIT ITERATIONS. ‘QUICK PASS) 

ESCAPE TO NEXT TEST 

LOOP WITH CURRENT DATA 

CATCH ERROR AND LOOP ON IT 

NO AUTO SIZE. IF 1ST START OF PROGRAM AFTER LOADING THE 
OPERATOR MUST INPUT ADDRESS AND VECTOR FROM CONSOLE. 
chee DZ11°S DESIRED ACTIVE 


arty DELAY PARAMETER (SEE SEC. ate t 
RESTART PROGRAM AT SELECTED TEST 
GET USERS PARAMETERS FROM CONSOLE 


FOR ECHO OR CABLE TESTS (PROGRAM STARTED AT LOC. 210) THIS 
SWITCH SET TO 1 ALLOWS THE USER TO TYPE IN THE VECTOR AND THE 
CSR FOR THE 0211 UNDER TEST. 

FOR ECHO OR CABLE TEST THIS SWITCH SET TO 1 a THE SELECTION 
A THE ECHO OR CABLE TEST, BAUD RATE, AND THE LINE NUMBER 


nd ad on nd eh od eed 
NNNNN 
CONAWS 


— as 
VZSS 
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SWITCH REGISTER CONTROL OF PARAMETER INPUT FROM CONSOLE 


Sw 00 


Sw 03 


SW 04 


GET USERS PARAMETERS FROM OD thee ln THIS SWITCH AT START 
UP TIME ALLOWS THE USER INPUT AT THE CONSOLE TERMINAL THE 
FOLLOWING PARAMETERS: BASE “Device ADDRESS, BASE VECTOR eoat tat 
BUS REQUEST LEVEL, DECLARE EIA OR — MODULE, MODE OPERA TION 
(EXTERNAL, INTERNAL, OR STAGGERED), AND THE NUMBER OF DZ11°S THAT 

ARE RUNNING. USING THIS SWITCH ALONE DEFAULTS THE FOLLOWING 
PARAMETERS: ALL 8 LINES ARE SET TO BE TESTED ON EACH DZ11,_ THE 
DEFAULT BAUD RATE IS SET AT 19.2 KBAUD, AND THE CHARACTER LENGTH 
FOR THE MAJORITY OF TESTING IS SET AT EIGHT BITS PER CHARACTER 
WITH TWO STOP BITS. 


EXTRA PARAMETER INPUT. SETTING THIS SWITCH AT START UP TIME 
PROVIDES THE USER WITH THE ABILITY TO SET THE LINES ACTIVE FOR 
TESTING AND TO SET THE DEFAULT BAUD RATE USED FOR THE MAJORITY 
OF THE DIAGNOSTIC TESTS. THE DELAY PARAMETER IS AUTOMATICALLY 
ADJUSTED TO THE BAUD RATE GIVEN BY THE USER. 


SELECT DELAY PARAMETER. THE DELAY PARAMETER THIS SWITCH oe 
DETERMINES THE LENGTH OF TIME THE PROGRAM STALLS WAITING FOR 
CHARACTER TO BE COMPLETELY TRANSMITTED OR RECEIVED. THIS DELAY 
COUNT IS AUTOMATICALLY SET TO PROVIDE ENOUGH DELAY TIME FOR THE 
DEFAULT BAUD RATE SPECIFIED WHEN RUNNING THE PROGRAM ON AN 11/45 
WITH BIPOLAR MEMORY. WHEN RUNNING THIS PROGRAM ON A FASTER 
PROCESSOR THE DELAY PARAMETER SHOULD BE ADJUSTED PROPORTIONALLY 
HIGHER THAN THE FOLLOWING DEFAULTED VALUES: 

2450 F 50 BAUD 


: OR 
1560 :TIME FOR 75 BAUD 
1120 :TIME FOR 110 BAUD 
0750 TIME FOR 134 BAUD 
0660 TIME FOR 150 BAUD 
0330 TIME FOR 300 BAUD 
0150 sT FOR 
0060 TIME FOR 1200 BAUD 
0040 ; TIME FOR 1800 BAUD 
0030 ;TIME FOR 2000 BAUD 
0020 ; FOR 2400 BAUD 
0010 :TIME FOR 3600 BAUD 
0001 TIME FOR 4800 BAUD 
0001 TIME FOR 7200 BAUD 
0001 ;TIME FOR 9600 BAUD 
0001 3; TIME FOR 19.2 KBAUD 


SEQ 0005 
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4.1.2 


ME THOD : 


SWITCH REGISTER RESTRICTIONS 


SW 06 


wr 
oe os 


SW 01 


SW 09 


SW 04 


RESELECT DZ11°S DESIRED active. PLEASE NOTE THAT A MESSAGE IS 

TYPED OUT FOR SETTING THE SwI $ 

ACTIVE. (THIS MEANS IF_ THE SYSTEM HAS FOUR D211S; _ BITS 

fh 01 102. 03 go SET IN LOC ta lh y FROM THE SWITCH 
IST 


USI T C AL 
LOCATION; THEREFORE IF FOUR DZ11S ARE IN THE SYSTEM ***DO NOT*** 
SET SWITCHES GREATER THAN SW 03 IN THE UP POSITION. THIS WOULD 
BE A FATAL ERROR. DO NOT SELECT MORE ACTIVE vt A THAN HAS BEEN 
GIVEN oten aa" ABOUT IN PARAMETER INPUT (SWOO=1) 


=1 
PROGRAM WILL TYPE MESSAGE 
5S BINARY NUMBER OF DZ11S DESIRED ACTIVE EXAMPLE: 1=1 


CONTINUE. 
NUMBER (IF VALID) WILL BE IN DATA LIGHTS (EXCLUDING 11/05) 
SET WITH ANY OTHER SWITCH SETTINGS DESIRED. PRESS CONTINUE. 


RESTART PROGRAM AT SELECTED TEST IT IS STRONGLY SUGGESTED 
THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE TRYING TO SELECT A 


HA CLE AR SET 
NOTE: IF RUNNING MULTIPLE DZ11°S; THE D211 YOU DESIRE TO BE 
UNDER TEST MUST BE SELECTED BY THE USE OF SWO6 BEFORE LOCKING ON 
THE TEST. IN OTHER WORDS; EACH TIME THE PROGRAM IS _ STARTED; 
THE FIRST DZ11 WILL BE SELECTED TO BE UNDER TEST UNLESS SWO06 I3 
USED TO SELECT ONLY ONE. 


LOOP ON CURRENT DATA: THIS SWITCH WILL ONLY WORK IF _ CALL 
*SCOP1* IS IN THAT TEST. THE REASON BEING THAT MOST TESTS DEAL 
WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR RECEIVED ALL AT ONCE 
THUS IN BLOCK DATA, ONE PATTERN CAN'T BE SINGLED OUT. 

THIS SWITCH IS DESIGNED TO PROVIDE AN AID FOR A TRAINED TROUBLE- 
SHOOTER TO SAMPLE VARIOUS SIGNALS ON THE MODULE AND IS NOT, MEANT 
TO BE USED AS A GENERAL USER CONTROL SWITCH. 


SELECT DELAY PARAMETER: THIS SWITCH SHOULD BE USED WITH CARE 
AS TOO SHORT A DELAY WILL CAUSE a TESTS TO FAIL ON CERTAIN 
PROCESSORS. IT IS RECOMMENDED THAT THIS SWITCH. ONLY BE USED 
IN CONJUNCTION WITH SCOPE LOOPS, E.G, SW 14,9.4,1 SET; SW 9.4, 
2,1 SET. THE SHORTEST PARAMETER IS 1; THE LONGEST ACCEPTED 1S 
197776. (SEE SEC. 4.1.1) 


3=2 D211; 7=3 D211; 17=4 D211 37=5 DZ11 ETC/AA PRESS 


SEQ 0006 
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SWITCH REGISTER PRIORITIES 
ERROR SWITCHES 


DELETE PRINT OUT/BELL ON ERROR. 
DELETE ERROR PRINTOUT. 

HALT ON THE ERROR. 

GOTO BEGINNING OF THE TEST(ON ERROR). 
GOTO NEXT TEST(ON ERROR). 


SCOPE SWITCHES 


Ve Sw 09 (IF ENABLED BY ‘SCOP1"). IF AN ‘*' IS PRINTED IN FRONT OF 
THE TEST NO. ON AN ERROR REPORT (EX. *TEST NO. 10 ) SWO9 IS 
INCORPORATED IN THAT TEST AND THEREFORE SWO9 IS *USUALLY* 
BEST SWITCH FOR THE SCOPE LOOP (SW14=0, SW10=0, SWO9=1, SWwO8=0) 
IF THE PROGRAM USER IS TECHNICALLY TRAINED TO ELECTRONICALLY 
ISOLATE SIGNAL PROBLEMS ON THE DZ11 MODULE. 

tf A os at AND THERE IS A_ *HARD* ERROR 


SWO8 IS BES 
INTERMITTENT ERRORS EITHER START THE PROGRAM WITH SWO1 AND 
SWO2 SET WHICH WILL ALLOW THE USER TO LOCK ON A SELECTED TEST, 
OR ELSE SET SW14 AS AN ERROR IS BEING TYPED OUT ON THE TERMINAL. 
SW14 WILL CONTINUE TO LOOP ON THAT TEST REGARDLESS OF WHETHER AN 
ERROR OCCURS. 
a SW 14 LOOP ON CURRENT TEST. 


STARTING ADDRESS 


SA 200 - ADDRESS 200 IS FOR NORMAL EXECUTION OF THE DIAGNOSTIC. THIS 
WILL DO THE MAJOR TESTING NECESSARY FOR VERIFICATION OF 


SA 210 - CABLE/ECHO - TERMINAL TESTS. STARTING AT ADDRESS 210 WILL GIVE 
THE USER THE OPTION TO VERIFY THE EIA CABLES AT THE DIST PNL OR 
ge A TRUE LINK TO ANY DEC SUPPORTED ‘TERMINAL SUPPORTED BY 


IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT IS_ UNDER 
ACT11 OR_ XXDP CONTROL AND WILL ACT ACCORDINGLY. AFTER *ALL* 
ee DZ11°S ARE TESTED THE PROGRAM WILL RETURN TO ‘XXDP* OR 


OPERATING PROCEDURE 


WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN + en FOUR 
WILL BE PRINTED AND PROGRAM WILL BEGIN RUNNING THE DIAGNOSTIC 
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NORMAL START OF DIAGNOSTIC 
ON _THE FIRST START OF THE DIAGNOSTIC AT ADDRESS 200; IF AUTO 
SIZING IS NOT USED OR WHENEVER SWOO=1; THE FOLLOWING QUESTIONS 
ARE ASKED AND MUST BE ANSWERED. 

"1ST CSR ADDRESS (160000:163700): ‘' 


YOU MUST TYPE IN THE FIRST DZ11 CSR IN_THE SYSTEM YOU WISH 
TESTING TO BEGIN AT. RANGE: 160000:163700 


"1ST VECTOR ADDRESS (300:770): *' 


YOU MUST TYPE IN THE VECTOR OF THE FIRST DZ11 IN THE SYSTEM 
UNDER TEST. RANGE 300:770 


"BR LEVEL (4:6): “' 


TYPE IN THE PRIORITY LEVEL OF THE DZ11 THAT THE ABOVE 
INFORMATION HAS BEEN GIVEN ABOUT. RANGE 4 OR 5 OR 6. 


“TYPE ‘'A’' FOR EIA MODULE OR ‘B*’ FOR 20MA (A:B): ‘"' 
TYPE ‘'A'' IF RUNNING A DZ11~-A,B,E (EIA). 


TYPE 'B’' IF RUNNING A DZ11-C.D,F (20MA). 
TYPING A <CR> DEFAULTS TO EIA MODULES. 


"MAINTENANCE MODE 

CEXTERNAL <H325>-EIA ONLY 
CINTERNAL <DZCSRO3=1> 
CSTAGGERED <H3271>-EIA ONLY 
[STAGGERED <H3190>-20MA ONLY 


TYPE *E" on *T" — a ON WHICH MODE YOU WISH TO RUN 
IN. IF RUNNING “EXTERNA ALL SELECTED LINES MUST BE 
TERMINATED BY AN H325 TEST CONNECTOR: 
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“#@ OF DZ11°S <IN OCTAL> (1:20): °° 


TYPE TOTAL NUMBER OF DZ11'S TO BE TESTED IN THE SYSTEM. RANGE 
IS 1 THRU 20 IN OCTAL. 


krekeetiee TF SWO3=1 THEN «aeaannne 


IF SWO3=1 THE FOLLOWING WILL BE PRINTED. 


"LINES ACTIVE BY BIT <IN OCTAL> (001:377):°' 


EACH BIT REPRESENTS A LINE AND ANY COMBINATION OF LINES MAY BE 
SELECTED (HOWEVER IN STAGGERED MODE TWO ADJACENT LINES MUST BE 
SELECTED (0-1, 2-3, 4-5, 6-7)).. 


"DEFAULT BAUD RATE <IN OCTAL> (00:17): °° 


THIS GIVES THE USER A CHANCE TO CHANGE THE DEFAULT BAUD RATE 
USED IN 5 ol 90 Ste 7 eae TEST. BAUD RATE CHOICES ARE: 


BAUD), 
"'04°"( 150 BAUD), om 300 BAUD) ,°06'*( 600 BAUD) ,"'07"'(1200 BAUD), 
"*10°'(1800 BAUD), es **(2000 BAUD) ,°'12°°(2400 BAUD) ,°'13°*(3600 BAUD), 
"'14''(4800 BAUD) ,"°15''(7200 BAUD) ,''16''(9600 BAUD) .'17°'(19.2 KBAUD) 
LOW DEFAULT BAUD RATES ARE NOT SUGGESTED SINCE THEY LENGTHEN THE 
TIME TO COMPLETE A PROGRAM PASS DRAMATICALLY. 


REKKEKEKEKEKEKEREKEKKEKERKEKKEKKEKEKEREKERERK 


IT IS_IMPORTANT TO NOTE THAT ALL DZ11'S IN THE SYSTEM MUST BE 
CONTIGIOUS FOR BOTH ADDRESS AND VECTORS. ALSO ALL THE EXTRA 
PARAMETERS OTHER THAN CSR AND VECTORS ARE GIVEN TO THE EXISTING 
DZ11°S_ IN THE SYSTEM. IF NOT ALL DZ11°S ARE SAME PRIORITY OR IF 
THE MODE OF OPERATION IS DIFFERENT FOR EACH 0211; THIS MUST BE 
‘PATCHED'' INTO THE CORRECT STATUS MAP ENTRY WHICH IS PRINTED AT 
START TIME. AN ALTERNATIVE IS TO PUT SWOO=1 AT START TIME; 
ANSWER QUESTIONS ABOUT DZ11 UNDER TEST AND INDICATE ONLY 1 DZ11 
IN THE SYSTEM. IF THE STATUS MAP _IS TO BE ‘PATCHED’' IT MUST BE 
DONE AFTER THE QUESTIONS ARE ANSWERED OR AFTER THE AUTO SIZE. 


SEQ 0009 
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HOW TO RUN THE ‘‘CABLE/ECHO"’ TESTS. 
NORMAL STARTING Ag THE FIRST TIME WOULD BE: LOAD ADDRESS 210; START 
WITH THE SWR EQUAL TO 003. 
NOTE: SwOO=1 ASKS” FOR ‘‘VECTOR'’ AND ‘'CSR"' 
SwO1=1 ASKS FOR ‘WHICH TEST ECHO OR CABLE’’, *RAUD RATE", ‘LINE"’ 
UNDER TEST. PROGRAM WILL PRINT OUT: . 
“VECTOR ADDRESS-"' 
YOU TYPE VECTOR WITH A <CR>. 
“CONTROL REGISTER ADDRESS-"' 
YOU TYPE IN DZCSR UNDER TEST. 


"WHICH TEST ? ECHO OR CABLE (E OR (C)'"' 


LETS DO THE CABLE TEST FIRST. **THIS TEST IS ONLY TO BE DONE ON 
4 EIA VERSION OF THE DZ11 NOT THE 20MA VERSION''. TYPE ‘'C'’ 
<CR> 


"BAUD RATE- *' 


TYPE EITHER 50, 110, 135, 150, 300, ee. 1200 1800, 2000, 2400, 
3600, 4800, 7200, 9600 FOLLOWED BY <CR> 


YOU TYPE THE LINE WHICH HAS THE H325 TEST CONNECTOR. (TYPE 
EITHER 0, 1, 2, 3, 4, 5, 6, 7) PROGRAM WILL THEN PRINT: 


"CABLE TEST" 
AND IF EVERYTHING IS WORKING; THE FOLLOWING WILL BE PRINTED: 


"PASS DONE."' 
"PASS DONE."' 


"TO CHANGE LINES; HIT ANY PRINTING KEY ON YOUR CONSOLE TERMINAL 
WHILE THE PROGRAM IS RUNNING AND THE FOLLOWING WILL BE PRINTED: 


“LINE: * 


NOW CHANGE THE H325 TEST CONNECTOR TO ANOTHER LINE AND TYPE THE 
NEW LINE. PROGRAM WILL THEN PRINT: 


“CABLE TEST" 
"PASS DONE.** 
"PASS DONE .*’ 
CONTINUE THIS OPERATION UNTIL ALL LINES ARE TESTED. 
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ECHO TEST 
IF PROGRAM HAS ALREADY BEEN STARTED AT 210 AND THE VECTOR AND ADDRESS 
HAVE BEEN TYPED IN; JUST LOAD ADDRESS 210 AND START WITH SWR EQUAL TO 
002. PROGRAM WILL PRINT: 
“WHICH TEST ? ECHO OR CABLE (E OR C)"' 
NOW TYPE AN ‘'E*' TO DO THE ECHO TEST. PROGRAM WILL PRINT: 
“BAUD RATE-"' 
TYPE BAUD RATE AT WHICH THE TERMINAL IS SET THAT IS CONNECIED T 
TE CHOICES ARE: 50, 75, 110, 135, 150 
6 , 2000, 2400, 3600, 4800, 7200, 9600. THE 
PROGRAM WILL THEN PRINT: 
LIne: ” 


TYPE THE LINE THE TERMINAL IS CONNECTED TO AT THE DIST PNL_ THEN 
THE PROGRAM WILL PRINT: 


"TERMINAL ECHO TEST"’ 
*x** AT THIS POINT THE MESSAGE: 


5 


"THE QUICK BROWN FOX JUMPED OVER THE LAZY DOGS BACK 0123456789"' 


SHOULD BE PRINTED ON THE TERMINAL CONNECTED TO THE D211. IF 
THIS__MESSAGE_IS DESIRED TO BE CONTINIOUSLY OUTPUT; SET THE SWR 
TO 377 (SWR=377) WHILE IT 1S BEING OUTPUT OR WHEN THE LINE NO. 
IS REQUESTED ABOVE. WHEN THIS MESSAGE IS DONE AND THE SWR IS NOT 
EQUAL TO 377; THE CONSOLE WILL PRINT: 


"TYPE A CHAR. ON DZ11 TERMINAL"’ 


ANY PRINTABLE CHAR HIT ON DZ11 TERMINAL SHOULD BE ECHOED BACK ON 
THE TERMINAL. **IF YOU HIT CNTRL C <*C> ON THE DZ11 TERMINAL 
THE PROGRAM WILL PRINT: 


"PASS DONE."' 


ON THE CONSOLE TERMINAL AND THE ‘QUICK BROWN FOX’’ WILL BE 
PRINTED ON DZ11_ TERMINAL AGAIN AND THE ECHO TEST WILL BE 
RUNNING. TO CHANGE LINES: TYPE ANY PRINTABLE CHARACTER ON THE 
CONSOLE TERMINAL (NOT THE DZ11 TERMINAL). THE PROGRAM WILL AGAIN 
TYPE “LINE: ‘' AND WAIT FOR A RESPONSE. 
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PROGRAM AND/OR OPERATOR ACTION 


THE VARIETY OF PROGRAM CONTROL SWITCHES PROVIDED IN THIS DIAGNOSTIC 
PACKAGE IS DESIGNED TO PROVIDE THE USER WITH A WIDE RANGE OF TROUBLE- 
SHOOTING TECHNIQUES. BEFORE THE USER ATTEMPTS TO RUN THIS DIAGNOSTIC HE 
SHOULD BECOME FAMILIAR WITH THE USE OF THESE CONTROL SWITCHES AND THEIR 
RESTRICTIONS. (SEE SEC. 4.1, 4.1.1, 4.1.2, 4.1.3) 


+e THE PROGRAM DETECTS AN ERROR THE TEST NUMBER AND PC WILL BE TYPED 

T AND POSSIBLY AN ERROR MESSAGE (DEPENDING ON THE PARTICULAR ERROR’. 
TF IT IS NECESSARY TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT 
THEN LOOK IN THE PROGRAM LISTING FOR THAT TEST NUMBER AND THEN NOTE THE 
PC OF THE ERROR REPORT. THE REASON FOR THE ERROR REPORT WILL BECOME 
CLEARER WHEN READING THE COMMENTS IN THE PROGRAM LISTING. 


ERRORS 


AS or PREVIOUSLY THERE WILL ALWAYS BE A_TEST NUMBER AND PC_ TYPED 
OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 12=0). IN MOST 
CASES ADDITIONAL INFORMATION WILL BE SUPPLIED TO THE THE ERROR MESSAGE 
WHICH IS TO GIVE THE OPERATOR AN INDICATION OF THE ERROR. 


ERROR RECOVERY 


IF FOR SOME REASON THE DZ11 SHOULD "HANG THE BUS" (GAIN CONTROL OF BUS 
SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) AN INIT OR POWER DOWN/UP 
IS NECESSARY FOR OPERATOR TO REGAIN CONTROL OF CPU. IF THIS SHOULD 
HAPPEN; LOOK IN LOCATION ‘TSTNO’® (ADDRESS 1216)FOR THE NUMBER OF oul 
TEST THAT WAS RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS 
WAY THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DZ11 WAS DOING AT THE 
TIME OF THE ERROR. 


RESTRICTIONS 

STARTING RESTRICTIONS 

SEE SECTION 4.1.2 

STATUS TABLE SHOULD BE VERIFIED REGARDLESS OF HOW PROGRAM WAS STARTED. 


ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH THE INFORMATION 
PRINTED ON THE TTY TO COMPLETLY ISOLATE PROBLEMS. 


SEC 0012 
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OPERATING RESTRICTIONS 
PARAMETER MUST BE INPUT FROM USER OR APT IF ‘‘AUTO SIZING'’ IS NOT USED. 


MISCELLANEOUS 
EXECUTION TIME 


ALL DZ11 DEVICE DIAGNOSTICS WILL GIVE AN "END PASS' MESSAGE (PROVIDING 
NO_ ERRORS AND SW12=0) WITHIN 2 MIN. THIS IS ASSUMING SWi1=1 (INHIBIT 
ITERATIONS) IS SET TO GIVE THE FASTEST POSSIBLE EXECUTION. ACTUAL 
DP11 CPU_CONF IGURAT AN 11/40 


ON. 
WILL TAKE AROUND 100 SECONDS TO EXECUTE A S bis _— NO 
T 400 SECONDS TO rg tt ity A FULLY ITERATED P. ANY 
PDP11 CPU_ TYPE WILL EXECUTE A PASS IN TIME PROPORT “0 THE 
EXECUTION SPEED OF THE CPU "S MEMORY IN RELATION TO THAT OF AN 11/40. 


PASS COMPLETE 


NOTE: *EVERY* TIME THE PROGRAM _ a) i THE TESTS WILL RUN AS 
ITERATIONS) WAS (=1). THIS IS TO ‘VERIFY NO *HARD* 
SSIBLE. THEREFORE THE FIRST PASS -EACH TIME 
WILL BE A “QUICK PASS* UNTIL ALL DZ11°S IN SYSTEM 
WHEN THE DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS 
AN EXAMPLE OF THE PRINT OUT TO BE EXPECTED. 


END PASS CZDZA-F CSR: 160010 VEC: 300 PASSES: 000001 ERRORS: 


NOTE: |THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE VALUES FOR 
THE DEVICE. THEY ARE ONLY FOR THIS EXAMPLE. 
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KEY LOCATIONS 
SLPADR (1126) 


STATUS MAP 
(1500)=( 2000) 


DZACTV (1404) 


$BASE (1310) 


CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN WHEN 
jreoatiee COUNT IS REACHED OR IF LOOP ON TEST IS 
CONTAINS THE ADDRESS OF THE NEXT TEST TO BE A ha 


HE BIT 
CURRENTLY 
1304/ 

NOw RUNNING 


TESTE EXAMPLE : (RUN) 
000000 MEANS THAT 02711 NO.05 IS THE 0211 


THESE LOCATIONS CONTAIN THE INFORMATION NEEDED TO TEST 
UP TO 16 (DECIMAL) DZ11S SEQUENTIALY. THEY CONTAIN THE 
CSR-VECTOR AND STATUS CONCERNING THE CONFIGURATION OF 
EACH BIT SET IN THIS LOCATION INDICATES THAT THE 
ASSOCIATED 0211. WILL ee coed ie E: 
60-01 02 os oe. WILL ee rE E 

9 36076096000000010004 MEANS THAT DZ11 NO. 00,04 WILL BE 


TESTED. 
“2 as THE RECEIVER CSR OF THE CURRENT 0Z11 UNDER 
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9 
° 8.4A MORE ON THAT ‘STATUS TABLE’ (1500-2000) 
614 "MAP OF mn STATUS * 
615 1500 160100 
616 1502 
617 1504 000005 
618 1506 000377 
619 1510 017470 
620 1512 000000 
652 
623 THE ABOVE INFORMATION WILL BE REPEATED FOR EACH OF UP TO 16 DZ11°S IN 
624 THE SYSTEM(THESE WILL FOLLOW UNDER THIS TABLE). EXPLANATION: 
oss 1500 160100 a lng SYSTEM CONTROL REGISTER FOR THE 1ST D211 IN 
627 1502 000300 THIS IS VECTOR ‘A* FOR THE FIRST D211 IN THE hee 
628 1504 000005 beat REPRESENTS THE BUS INTERRU®T PRIORITY LEVEL OF THE 
629 0211 BIT1S. OF THIS LOCATION INDICATES EITHER EIA S 
630 20MA. IF BIT?!S=0 MODULE SHOULD BE AN M7819, IF BIT15=1 
631 MODULE SHOULD BE AN M7814 
os 1506 000377 ig HR BINARY REPRESENTATION OF WHAT LINES ARE TO 
63% 1510 017470 THIS IS THE PARAMETER LOCATION USED IN MOST OF THE 
635 TESTS. _IT INDICATES PARAMETERS OF: RX ON, SPEED SELECT 
636 17 (19.2K BAUD) EIGHT BITS PER CHAR. AND TWO STOP BITS. 
637 THE USER MAY a THE STOP BITS wo THE SPEED. BUT THE 
638 REMAINING PARAMETERS SHOULD BE LEFT ALONE. 
639 THIS LOCATION IS USED TO LOAD THE DZ11 LINE PARAMETER 
640 REGISTER FOR EACH LINE. THE MEANING OF THE BITS SET IN 
641 THIS LOCATION IS THE SAME AS THE FUNCTION OF THE RELATED 
642 BITS IN THE DEVICE LINE PARAMETER REGISTER. 
643 1512 000000 a LOCATION WILL CONTAIN EITHER ALL ZEROS INDICATING 
O44 INTERNAL LOOP WAS SELECTED AS MODE OF OPERATION OR 
645 It WILL CONTAIN 10000 INDICATING THAT ‘STAGGERED MODE"’ 
646 + SELECTED OR IT vitt CONTAIN 000200 INDICATING THAT 
* “EXTERNAL'' WAS THE MODE SELECTED. 
649 THE ABOVE IS REPEATED FOR EACH DZ11 IN THE SYSTEM. THE TABLE IS 
650 FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER INPUT PROGRAM 
651 AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY USER; THE 
652 LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO SUIT THE 
653 SPECIFIC CONFIGURATION. 
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8.5.1 


8.5.2 


8.5.3 


FOR ALL PARAMETER ADJUSTMENTS PLEASE REFER TO SECTION 8.4A FOR GREATER DETAIL. 
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*** METHOD OF AUTO SIZING *** 
FINDING THE CONTROL STATUS REGISTER. 


THE PROGRAM WILL START AT ADDRESS 160000 AND START ‘REFERENCING’ THE 
ADDRESS IN THE POINTER. IF A NON-EX MEMORY TRAP OCCURES, THE POINTER 
(HOLDING 160000) IS UPDATED BY 10 AND THE ABOVE IS REPEATED UNTIL 
aett te 163700 IS REACHED. IF A ‘SLAVE SYNC RESPONSE’ WAS ISSUED BY THE 


DZ11 (OR ANY OTHER tte (NO NXM TRAP), ‘MASTER SCAN ENABLE’ IS 
ATTEMPTED TO BE SET AND THE *‘TCR’’ BIT FOR CINE 7 IS SET. ‘TRDY'' IS THEN 
TESTED TO BE SET AND BOTH "TCRO7"' AND ‘MASTER SCAN ENABLE'’ ARE TESTED TO 


BE STILL SET. IF ALL OF THIS WORKED: THEN A ‘DEVICE CLEAR’’ IS ISSUED 
TESTING THAT THE BIT CAN BE READ BACK AND THAT AFTER SOME TIME IT SELF 
CLEARS. | ALL OF THE ABOVE WORKED; THIS DEVICE IS ASSUMED TO BE A 
D711. IF ANY OF THE ABOVE FAILED; UPDATING OF THE POINTER IS DONE AND 
THE SEQUENCE IS REPEATED. 

NOTE: THE PROGRAM DOES NOT FIND YOUR D711; SOMETHING IS WRONG AND 
AUTO SIZING S SHOULD NOT BE DONE. 

AFTER IDENTIFYING ma DZ11 THE PROGRAM THEN ATTEMPTS TO SET ALL DTR_ BITS 
IN DEVICE REGISTER 4 IF ANY DTR BITS DID SET THE MODULE IS ASSUMED TO 
A MODULE (M7819) OTHERWISE THE STATUS MAP ENTRY IS SET FOR 20MA 


FINDING THE VECTOR 


THE VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE INSTRUCTION IOT AND 
".+2' (NEXT ADDRESS). BIT14 AND BITS (TX_INTERUPT re AND MSTSCAN 
ENABLE) a3 SET INTO THE DZCSR. ‘TCRO7"’ IS THEN SET. A DELAY IS MADE 
IF NO INTERUPT OCCURES (BECAUSE OF A BAD DZ11) THE PROGRAM ASSUMES 
VECTOR ADDRESS 300 AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. 
ONCE THE PROBLEM IS FIXED; THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET 
CORRECT VECTOR. IF AN INTERUPT OCCURRED; THE ADDRESS TO WHICH THE D211 
INTERUPTED TO IS PICKED UP AND REPORTED AS THE VECTOR. NOTE: IF THE 
VECTOR REPORTED IS NOT THE VECTOR SET UP BY YOU; THERE IS A PROBLEM AND 
AUTO SIZING SHOULD NOT BE DONE. 


PARAMETER ASSUMPTIONS. 


SINCE TOO MUCH HARDWARE WOULD NEED TO BE TURNED ON TO SIZE THE REST OF 
THE PARAMETERS; THE PROGRAM MUST ASSUME THE REMAINING VARIATIONS. THE 
RESULT IF NOT TO YOUR SPECIFIC CONFIGURATION MAY BE ALTERED BY HAND 
(TOGGLE IN) IF DESIRED). IN THIS WAY 95 PERCENT OF THE PARAMETER SETUP 
WAS DONE BY THE PROGRAM, AND 5 PERCENT BY YOU. 
pueda 

BUS PRIORITY IS SET TO LEVELS. 
>) ALL ail ¢ LINES ARE ASSUMED TO BE it x 
3) DEFAULT BAUD RATE IS SET TO 17 (19, £, * 
4) MODE OF OPERATION IS ‘INTERNAL MODE"’ 


SEQ 0016}. 
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9.1.2 


9.1.3 


11:06 PAGE 1& 


RUNNING THE DZ11 DIAGNOSTIC UNDER APT 


THE APT INTERFACE 

CZDZA HAS BEEN REDESIGNED TO BE COMPATIBLE WITH THE API- 
AUTOMATED PRODUCT TEST SYSTEM. IT CAN BE RUN AS A STANDALONE 
DIAGNOSTIC OR IN EITHER OF THE APT MODES. CERTAIN VARIABLES 
IN THE ORIGINAL APT MODULE WERE REASSIGNED TO THE AREAS SET 


ASIDE FOR APT INTERFACING. THESE NEW VARIABLES GENERALLY 
BEGIN WITH A DOLLAR SIGN ($), E.G., SDEVM, SBASE. 


SETTING UP THE DIAGNOSTIC USING APT 


THE DIAGNOSTIC USES SEVERAL VARIABLES IN THE REGION SUBTITLED 
‘APT MAILBOX-ETABLE’. THESE VARIABLES ARE: 


SSWREG - USED IF A SOFTWARE SWITCH REGISTER IS DESIRED WHILE 
UNDER APT 

$VECT1 - USED TO SPECIFY THE INTERRUPT LEVEL AND THE FIRST 
VECTOR ADDRESS 

$BASE - USED TO INDICATE BOTTOM ADDRESS OF D211 UNDER TEST 

SDEVM - A BIT MAP REPRESENTING WHICH DZ11°S WILL BE TESTED 

$CDW1 - USED TO INDICATE WHICH LINES TO RUN ON ALL D2Z11'S 


$DDWO - EACH OF THE $DDW WORDS DESCRIBES THE PARAMETERS 
(LPR) FOR A PARTICULAR DZ11, GOING UP TO 16 D211'S 


RUNNING UNDER APT 
THE USER SHOULD BE FAMILIAR WITH THE APT SYSTEM. THE APT 
TIMING PARAMETERS FOR THE D211 — WERE Ra ON AN 
11/40 PROCESSOR. IT MAY BE NECESSARY ADD FEW MORE 
SECONDS IF THE DIAGNOSTIC IS OUT ON AN 11705 PROCESSOR: 
ALL OF THE VARIABLES MENTIONED IN gilts gh oe 1.2 SHOULD BE SET 
UP PRIOR TO RUNNING THE DIAGNOSTIC UNDER AP 

NOTE 


BE SURE $BASE POINTS TO THE FIRST D211 BEFORE RUNNING 


BASED ON THESE VALUES, THE DIAGNOSTIC WILL SET UP THE STATUS 


SEe 


0017 
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763 TABLE. THE USER IS THEN FREE TO MONITOR UNDER APT AS NORMAL. 
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CHANGE HISTORY 
NOTE: HISTORY STARTS WITH REV. FO 
CHANGE DESCRIPTION 


ALTER TRANSMITTER iNTERRUPT SERVICE ROUTINE 
TO ALLOW MORE TIME FOR THE TCR BIT TO CLEAR BEFORE 
LOWERING THE BUS PRIORITY TO ENABLE DZ11 INTERRUPTS. 


-TITLE CZ2DZA-FO 
:*COPYRIGHT (C) 1976,1979 
:*DIGITAL EQUIPMENT CORP. 
; *MAYNARD, MASS. 01754 


-* 


THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
¢ SPACKAGE (MAINDEC=11-DZQAC-C3), JAN 19, 1977. 


$TN=1 


spogtos: PROCEDURE 
OGRAM 


:LOAD PR 

;LOAD ADDRESS 000200 

;PRESS START 

;PROGRAM WILL TYPE ‘teocinatt TA eoitate ¢ DZ11 LN ASYNC MUX TSTS °° 
[PROGRAM WILL TYPE ‘'RUNNING'' TO INDICATE THAT TESTING HAS STARTED 
;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
[AND THEN RESUME TESTING 


-SBTTL BASIC DEFINITIONS 
z*INITIAL_ ADDRESS OF THE STACK POINTER *** 1120 *** 
TACK= 1120 


-EQUIV EMT,ERROR ;sBASIC DEFINITION OF ERROR CALL 
-EQUIV I0T,SCOPE 7 sBASIC DEFINITION OF SCOPE CALL 


: *MISCELLANEOUS DEFINITIONS 
HT= 11 ::CODE FOR ied tecan TAB 
so CODE FOR LINE FEED 
;;CODE FOR CARRIAGE RETUR 
000200 00 :CODE FOR CARRIAGE RETURN-L INE FEED 
177776 P : PROCESSOR STATUS WORD 


177774 +3 STACK LIMIT REGISTER 

177772 1 ;PROGRAM INTERRUPT REQUEST REGISTER 
177570 1 > ;HARDWARE SWITCH REGISTER 

177570 177570 ; HARDWARE DISPLAY REGISTER 


:*GENERAL PURPOSE REGISTER DEFINITIONS 


0 00 Cd Oo Co 0d Oo Co Co Co 
pe pe Pe be Pe PP Pe POs 
OD NAUSWN Oo 
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BASIC DEF INITIUNS 


RO= 
R1= 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 
SP= 
PC= 


;*PRIORITY 
PRO= 0 


REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 


RAL REGISTER 


REGISTER 


;;GENERAL REGISTER 
3:STACK POINTER 


3 PROGRAM 


;;PRIORITY 


COUNTER 


NAMES W HO 


3*''SW'TCH REGISTER’’ SWITCH DEFINITIONS 
SwW15= 100000 


B1T10= 
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BASIC DEFINITIONS 


BITO9= 


“EQUIV 


B1T00,BITO 


3 *BASIC *'CPU'’ TRAP VECTOR Tie OUT 


TPVEC= 64 
PIRQVEC=240 


OUT AND OTHER ERRORS 
sansa? AND ILLEGAL INSTRUCTIONS 


> TRACE TRAP 

‘BREAKPOINT TRAP (BPT) 

+ ¢ INPUT/OUTPUT TRAP (IOT) **SCOPE** 
sPOWER FAIL 

: EMULATOR TRAP (EMT) **ERROR** 
"TR TRAP 


:TTY KEYBOARD VECTOR 
:TTY PRINTER VECTOR 
‘PROGRAM INTERRUPT REQUEST VECTOR 


: INSTRUCTION DEFINITIONS 


PUSH2SP=24646 
POP2SP=22626 


:DECREMENT PROCESSOR STACK 1 WORD 
: INCREMENT PROCESSOR STACK 1 WORD 
:SAVE RO ON STACK 

RESTORE RO FROM STACK 

sDECREMENT STACK TWICE 

: INCREMENT STACK TWICE 


ee CONTROL AND STATUS REGISTER DEFINITIONS 


MAINT = BIT3 


=BI1T7 
SILOEN= BIT12 


BIT DEFINITIONS 


CE CLEAR 
MASTER SCAN ENABLE 
sRECEIVER _—_" ENABLE 


;RECEIVER 
;SILO ALARM ENABLE 


SEQ 0021 


J 2 
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932 020000 SILOAL = BIT13 : SILO ALARM 
933 040000 TIE=BIT14 ; TRANSMITTER INTERRUPT ENABLE 
eee 100000 TRDY=BIT15 : TRANSMITTER READY 
+) ;DZCSR WORD DEFINITIONS 
938 000000 TLO=0 TRANSMIT LINE 0 
939 000400 TL1=81T8 ; TRANSMIT LINE 1 
940 001000 TL2=B1T9 ; TRANSMIT LINE 2 
941 001400 TL3=BIT9!BIT8 ;TRANSMIT LINE 3 
942 002000 TL4=B1T10 ; TRANSMIT LINE 4 
943 002400 TLS=BIT10!BIT8 ;TRANSMIT LINE 5 
944 003000 TL6=BIT10!BIT9 ;TRANSMIT LINE 6 
oF 003400 TL7=B1T10'BIT9!BIT8 ; TRANSMIT LINE 7 
947 
948 ;DZRBUF BIT DEFINITIONS 
949 J Drm ror renee ooroeeoen= 
950 
951 010000 PARER=BIT12 ;PARITY ERROR 
952 020000 FRMERR=BIT13 ; FRAME ERROR 
953 040000 OVRRUN=B11T14 ; OVERRUN ERROR 
ore 100000 DVALID=B1T15 :DATA VALID 
oS ;DZRBUF WORD DEFINITIONS 
958 
959 000000 RLO=0 sRECEIVER LINE 0 
960 000400 RL1=B1T8 ;RECEIVER LINE 1 
961 001000 RL2=BIT9 sRECEIVER LINE 2 
962 001400 Pete RECEIVER LINE 3 
963 002000 RL4=B1T10 ;RECEIVER LINE 4 
964 002400 RL5=81T10!BIT8 RECEIVER LINE 5 
965 003000 RL6=B1T10!BIT9 CEIVER LINE 6 
nee 003400 RL 228111018] 19!Bi 18 RECEIVER LINE 7 
968 :DZLPR WORD DEFINITIONS 
969 ptt rrr nnn = 
970 
971 000000 =0 LINE PARAMETER 0 
972 000001 LP1=B1TO ;LINE PARAMETER 1 
973 000002 IT1 LINE PARAMETER 2 
974 000003 LP3=BIT1'BITO ;LINE PARAMETER 3 
975 LP4=BIT2 LINE PARAMETER 4 
976 000005 LP5=B1T2!BITO LINE PARAMETER 5 
977 000006 LP6=81T2!BIT1 LINE PARAMETER 6 
yk 000007 [P7=BITSIBITI IBITO ;LINE PARAMETER 7 
980 000000 FIVE=0 FIVE BITS/CHAR,1 STOP BIT 
981 000010 S$1X=B1T3 “SIX BITS/CHAR, 1 sTOP BIT 
982 000020 SEVEN=BIT4 SEVEN BITS/CHAR, 1 STOP BIT 
983 000030 EIGHT=B1T4!BIT3 :EIGHT BITS/CHAR,1 STOP BIT 
984 000040 FIVES=BITS FIVE BITS/CHAR,2 STOP BITS 
985 000050 SIXS=B1T5!BIT3 SIX BITS/CHAR,2 STOP BITS 
SEVENS=BITS!BIT4 :SEVEN BITS/CHAR, 2 STOP BITS 


986 
987 000070 EIGHTS=BITS!BIT4'BIT3 EIGHT BITS/CHAR, 2 STOP BITS 


CZDZ2A-FO 
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GENERAL DEFINITIONS AND EQUIVALENCES SEQ 0023 
PARITY=BIT6 PARITY ENABLED 
ODDPAR=81T7 ;ODD PARITY ENABLED 
ONE STOP=0 ;ONE STOP BIT ENABLED 
TWOSTOP=BIT5 : TWO STOP me ENABLED 
EVEPAR=0 sEVEN PARITY ENABLED 
RCVON=81T12 ENABLE RECEIVER (RECEIVER ON) 
$50=0 SPEED 50 BAUD 
tie Hh ;SPEED 75 BAUD 
110=BI1T9 SPEED 110 BAUD 

$1 34:8179:8178 ;SPEED 134.5 BAUD 
$150=81T10 ;SPEED 150 BAUD 
$300=81T10!B1T8 :SPEED 300 BAUD 
$600=81T10!BIT9 ;SPEED 600 BAUD 
AE the Racal ;SPEED 1200 BAUD 

$1800=B81T11 ;SPEED 1800 BAUD 
2200081111 BITS ;SPEED 2000 BAUD 
$2400=81T11!BIT9 ;SPEED 2400 BAUD 
rereiiiieitae ;SPEED 3600 BAUD 
$4800=817T11!B1T10 ;SPEED 4800 BAUD 


$7200=B1T11 1B1T10'BIT8 SPEED 7200 BAUD 
5¥000=B81T11!BIT10!BIT9 ;SPEED 9600 BAUD 
$19200=81111 !B1T10!BIT9!B1T8 SPEED 19200 BAUD 


:DZTCR BIT DEFINITIONS 


TCRO=B81T0 :TCRO 
TCRi=BIT1 :TCRI 
TCR2=B1T2 > TCR2 
TCR3=BIT3 TCR3 
TCR4=BITS STCRG 
TCR5=B1T5 >TCRS 
TCR6=B1T6 > TCR6 
TCR7=B1T7 *TCR7 
DTRO=BIT8 *DTRO 
DTR1=BIT9 =DTRI 
DTR2=B1T10 *DTR2 
DTR3=B1T11 *DTRS 
DIR4=BIT12 SDTR4 
DTRS=B1T13 “DTRS 
DTR6=B1T14 *DTR6 
DTR7=B1T15 *DTR7 

:DZMSR BIT DEFINITIONS 
RINGO=81T0 :RING INDICATED ON LINE 0 
RING1=B1T1 ‘RING INDICATED ON LINE 1 
RING2=81T2 [RING INDICATED ON LINE 2 
RING3=B1T3 *RING INDICATED ON LINE 3 
RING4=B114 [RING INDICATED ON LINE 4 
RING5S=B1T5 *RING INDICATED ON LINE 5 
RING6=81 16 ‘RING INDICATED ON LINE 6 
RING7=B1T7 ; ICATED ON LINE 7 
C00=81T8 >CARRIER PRESENT ON LINE 0 
C01=BI1T9 :CARRIER PRESENT ON LINE 1 


L 2 
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1044 002000 C02=B1T10 ; CARRIER PRESENT ON LINE 2 
1045 004000 CO3=B1T11 ; CARRIER PRESENT ON LINE 3 
1046 010000 CO4=B1T12 ;CARRIER PRESENT ON LINE 4 
1047 020000 C05=B1T13 ;CARRIER PRESENT ON LINE 5 
1048 040000 CO06=B1T14 ; CARRIER PRESENT ON LINE 6 
Mo 100000 CO7=B1T15 ; CARRIER PRESENT ON LINE 7 
1051 :DZTDR BIT DEFINITIONS 
1052 {oes 
1053 
1054 BRKO=B1T8 ;BREAK FOR LINE 0 
1055 001000 BRK1=B1T9 ;BREAK FOR LINE 1 
1056 002000 BRK2=B1T10 BREAK FOR LINE 2 
1057 000 BRK3=B1T11 ;BREAK FOR LINE 3 
105 010000 BRK4=BIT12 ;BREAK FOR LINE 4 
1059 20000 BRK5=B1T13 ;BREAK FOR LINE 5 
1060 040000 BRK6=BIT14 ;BREAK FOR LINE 6 
1061 1 BRK7=B1T15 ;BREAK FOR LINE 7 
1062 
1063 
Woes ; TABLE OF LOOP AROUND FUNCTIONS (H325) 
1066 TE eerie 
1068 by V a 
1069 ; REC TRANS 
1070 ; DATA DATA 
1071 3 
1072 Seem eee eewennee 
1073 : I : 
1074 s V a 
1075 ; co RTS 
1076 : 
1077 
7 22 i s—i(‘“‘“ ll ee ccmnet emcee 
1079 ; m 
1080 : y . 
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1082 DAIS IIIS III III III IO III Ott ttt 


1083 : 

1084 ; TRAPCATCHER FOR ILLEGAL INTERRUPTS 
1085 3; THE STANDARD ‘'TRAP CATCHER'’ IS PLACED 
1 s;BETWEEN ADDRESS 0 TO ADDRESS 776. 

317 LOOKS LIKE ‘PC+2 HALT"’. 


° 
DRE EEE REE EEE ERE EERE ERE REE 


8 


STANDARD INTERRUPT VECTORS 


;FAKE ‘MTPS'’ INSTRUCTION TRAP 
s;MAKE SURE PS IS PRIORITY 7 


SELRGZAELZE 


:SCOPE LOOP HANDLER 
HANDLE AT PRIORITY 7 


[POWER FAIL HANDLER 
[SERVICE AT PRIORITY LEVEL 7 
TERROR HANDLER 
[SERVICE AT PRIORITY LEVEL 7 
[GENERAL HANDLER DISPATCH SERVICE 
4 SSERVICE AT PRIORITY LEVEL 7 
.SBTTL ACT11 HOOKS 
STARK KERR KEE ERE EERE REE KR EREKEREREEKERREKEKEEKEEEKEEKEEKEREEKEEEK EH 
sHOOKS REQUIRED BY ACT11 
$SVPC=. :SAVE PC 
::1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
722)SET LOC.52 TO ZERO 
i: RESTORE PC 
;SOFTWARE DISPLAY REGISTER FOR SWITCHLESS 11S 
TSOFTARE SWITCH REGISTER FOR SWITCHLESS 11S 
002150 r MP .START :GO TO START OF PROGRAM 


023770 ; MP XSTART :GOTO CABLE TEST/ECHO TEST 


VBSNRARAVLS SOUS ARRAVISSRLFGRAVLES 


1 
1 
1 
1 
1 
1 
1 
1 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
1 


001000 -=1000 
005200 055103 055104 MTITLE: .ASCIZ <200><12>/CZDZA-F0/<200>/CZDZAFO DZ11 LN ASYNC MUX TSTS /<200> 


a ak a ak ot 2a 0 2 ot 8 a I 2 8 6) Fh oh od ot ot oh ot 
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g 


-SBTTL COMMON TAGS 


SEAR EREE REE EAE EEE EERE EEE REE EEREEKEREEEKEKRKEE HK 


TRTHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


SCMTAG: :zSTART OF COMMON TAGS 


: CONTAINS THE a _— 
; ERROR F 

SUBTEST TTERATION COUNT 
OPE LOOP ADDRESS 

SCOPE RETURN FOR ERRORS 

TOTAL ERRORS DETECTED 

ITEM CONTROL BYTE 
- ERRORS PER TEST 

PC OF LAST ERROR INSTRUCTION 
RESS OF ‘GOOD’ DATA 


3 = CONTAINS DATA 
;sRESERVED--NOT TO BE USED 


; sAUTOMATIC MODE INDICATOR 
zs INTERRUPT MODE INDICATOR 


yreete OF SWITCH REGISTER 
ea eTATG teed REGISTER 


TTY KBD BUFF FER 
SiTTy PRINTER STATUS REG. ADDRESS 
::TTY PRINTER BUFFER REG. wire 
ieee NULL CHARACTER FOR FILLS 

TAINS # OF FILLER CHARACTERS REQUIRED 

33 INSERT FILL CHARS. AFTER A ‘LINE FEED’’ 

"TERMINAL AVAILABLE"’ cane (BIT<07>=0=YES) 
> CONTAINS THE ADDRESS FROM 
M3 ($REGO) = ati 


lelelelelelelolelelo. leleleleloleleilo) 


™m 


CONTAINS (($REGAD) +12) 
: USER DEF INED 
USER DEFINED 
SZUSER DEFINED 
3; :USER DEFINED 
2 eMAX. NUMBER OF ITERATIONS 
/?/ QUESTION MARK 
<15> i: CARRIAGE RETURN 
<12> :¢LINE FEED 
OES e trie titie titi sitet iii iritisiittiiictiitiititiiiiitiitic iit. 


-SBTTL APT MAILBOX~E TABLE 


RAV LS BIHVRARANISSELKEALALTAS SSVKARAN ALS SSHVRGEAGASESBVEGRUVOS 
Soooooce0c0co CO-NO J 
In 
bee 
25 
v 


11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 
11 


Co 
wn 
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1186 

1187 “EVEN 

1188 0012% SMAIL: 

1189 001234 000000 SMSGTY: .WORD AMSGTY 

1190 001236 000000 SFATAL: .WORD AFATAL 

1191 001240 000000 STESTIN: .WORD ATESTN 

1192 001262 000000 SPASS: .WORD ASS 

1193 001244 000000 SDEVCT: .WORD ADEVCT 

119% 001246 000000 SUNIT: .WORD AUNIT 

1195 001250 000000 SMSGAD: .WORD AMSGAD 

1196 001252 000000 SMSGLG: .WORD AMSGLG 

1197 001254 SETABLE : 

1198 001254 000 NV: .BYTE AENV 

1199 001255 000 NVM: .BYTE AENVM 

1200 001256 000000 SSWREG: .WORD ASWREG 

1201 001260 000000 SWR: .WORD AUSWR 

1202 001262 000000 SCPUOP: .WORD  ACPUOP 
& 

1204 5* 

1205 te 

1206 i* 

1207 i* 

1208 * 

1209 001264 000 $MAMS1: .BYTE AMAMS1 

1210 001265 000 SMTYP1: _BYTE  AMTYP1 
*® 

1212 i* 

1213 ;* 

1214 - 

1215 001266 000000 .WORD  AMADR1 

1217 001270 000 BYTE 

1218 001271 000 .BYTE AMTYP2 

1219 001272 000000 ‘ AMADR 

1220 001274 000 .BYTE AMAMS 

1221 001275 000 .BYTE AMTYP3 

1222 001276 000000 : AMADR3 

1223 001 096 ‘BYTE 


J FARRAR AAAEAAAAAAERAEREAAEEEAEAERARAAAEEAREAAERARRAERAAEREREREEAEEEREE 


11/04=01, 11/05=02, 11/20=03, 11/40=04,11/45-05 
70=06 ,PDQ=07,0=10 


17 
BIT 10=REAL TIME CLOCK 
BIT 9=FLOATING POINT on 
BIT 8=MEMORY MANAGEMENT 
ay N Ore ke} M.S. BYTE 


(HIGH BYTE) 
ORE=001 
500 
: ;HIGH a yt ie 
MEM.LAST 


MEM. LAST ADDRESS ,BLK#2 
THIGH ADDRESS ,.M.S.BYTE 
ty TYPE ,BLKA3 

M.LAST ADDRESS ,BLK#3 
HIGH ADDRESSM.S.BYTE 
MER. TYPE ,BLKAS 


: MEM.LAST ADDRESS ,BLKA4 
INTERRUPT VECTOR#1 ,BUS PRIORITY#1 
3; INTERRUPT VECTOR#2BUS PRIORITY#2 
3; ;BASE “9 OF EQUIPMENT UNDER TEST 


VIC 
7: CONTROLLER DESCRIPTION WORDA1 
: CONTROLLER iaten nee WORD#2 
ICE DESCRIPTOR WORD#0 



















EVICE DESCRIPTOR WORD#9 
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¢ 001344 000000 SODW10: .WORD ADDWIO ;;DEVICE DESCRIPTOR WORD#10 
1243 00 000000 SDDW11: .WORD ADDW11 ;:DEVICE DESCRIPTOR WORD#11 
001350 000000 SODW12: .WORD ADDW1 < sOEVICE DESCRIPTOR WORD#1 
1245 001352 000000 $ODW15: .WORD ADDW1 VICE DESCRIPTOR WORDA#1 
12466 001354 000000 SDDW14: .WORD ADDW14 VICE DESCRIPTOR WORD#14 
is of 4 001356 000000 $DDW15: .WORD ADDW15 DEVICE DESCRIPTOR WORD#15 
1269 
1250 001360 SE TEND 
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-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

 SLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

;*NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC) 

7 *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;:POINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 
::POINTS TO THE DATA 
;:POINTS TO THE DATA FORMAT 


kk tk ot a et tt es 
BRARAS 


FARERAS 


;PROGRAM CONTROL PARAMETERS 


ADDRESS OF NEXT TEST TO BE EXECUTED 
sADDRESS FOR LOCK ON CURRENT DATA 


: DEFAULT ALL EIGHT LINES RUNNING 
PARAMETERS: 8 BITS/CHAR,2 STOP BITS.19200 BAUD,.NO PARIT 
[DEFAULT MAINTENANCE MODE 
:LINE NUMBER 
3 TRANSMISSION LINE gt 
: COUNT OF WORDS IN gy opi in PATTERN 
“DEVICE ADDRESS STORAGE LOCAT 
PROGRAM COUNTER STORAGE 
Sepz11" S pt Bk E 
:*POINTER ONE P T RUNNING DEVICE. 
;*OCTAL NUMBER OF leit “ * 
; *WORKABLE NUMBER 


-EVEN 
ACTIVE: ° ; TABLE POINTER. 


377 
1 
0 
0 
0 
0 
0 
0 


. =e 
@® 
ead 
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33 


;PROGRAM CONTROL FLAGS 


2 


EIAFLG: . :0=EIA 100000=20MA 

INIFLG: . PROGRAM INITIALIZATION FLAG 

HDRFLG: . ; PROGRAM ot att Serre FLAG FOR HEADER MAP 
MNTFLG: MAINTENANCE BIT SET FLAG 

DONFLG: . ; TRANSMISSION COMPLETION FLAG 


SOR ESSS SBIR 


2 oS 
WOONAUSWN—O N 
lelelelelelelelelelelelelelolele) 


APT PARAMETER BLOCK 


SRR ARR EEREAEE RAE RAEEREEEEREKEERAERREEREREEEEE EERE ERAEKEREE REE 


:Ser LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
eerie tiitittitii tii iiticiititiitiititiitiitiitiiiitiitiititis) 
7zSAVE CURRENT LOCATION 
7zSET POWER FAIL TO POINT TO START OF PROGRAM 
2 FOR APT START UP 
sPOINT TO APT INDIRECT ADDRESS PNTR. 
Z:POINT TO APT HEADER BLOCK 
3sRESET LOCATION COUNTER 
2 neapnageno geenennemngeer agen femngs yr yeoman poem = 
SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


SAPTHD: 
S$HIBTS: 0 3: TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
SMBADR: . SMAIL  ;;ADDRESS OF APT MAILBOX (BITS 9-15) 
STSTM: . 90. Ee TIM OF LONGEST TEST 
— 95. UN TIME IN rap OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
95. ADDIT IONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 

-WORD SET END-SHAI L/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 

3DZ11 STATUS TABLE AND ADDRESS ASSIGNMENTS 


WWWWWAWG 
SESNLNORS 


AN AAA ALA AN 
BYKAKANLSY 


RY 
oo 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
; 
1 
1 
1 
1 
1 
1 
1 
1 
1 


EFEREYK 
URW 
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1347 15 000001 DZCRO: .BLKW 1 CONTROL STATUS REGISTER fe DZ11 yer 0 
1348 001502 000001 DZvCO: .BLKW 1 ;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 0 
1349 001504 000001 DZLVO: .BLKW 1 PRIORITY LEVEL AND EIA FLAG OSELECTOR 
1350 001506 000001 LINEO LKW 1 ALL LINES SELECTED 
1351 001510 000001 PARQ BLKw 1 ; PARAMETERS 
1326 001512 000001 MANTO BLKwW MAINTENANCE MODE FOR THIS DEVICE 
1354 001514 000001 DZCR1: .BLKW 1 CONTROL STATUS REGISTER FOR DZ11 NUMBER 1 
1355 001516 000001 DZVC1 BLKWw 1 RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 1 
1356 001520 000001 DZLV1 BLKwW 1 ;PRIORITY LEVEL AND EIA FLAG SELECTOR 
1357 001522 000001 LINE BLKw 1 sALL LINES SELECTED 
1358 001524 000001 PAR1: BLKW 1 ; PARAMETERS 
1en 001526 000001 MANT1 BLKW 1 :MAINTENANCE MODE FOR THIS DEVICE 
1361 001530 000001 DZCR2 BLKW CONTROL STATUS REGISTER FOR DZ11 NUMBER 2 
1362 001532 000001 DZVC2 BLKW 1 RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 2 
1363 001534 000001 DZLV2 BLKW ;PRIORITY LEVEL AND EIA FLAG SELECTOR 
1364 001536 000001 LINE2 BLKW sALL LINES SELECTED 
1365 001540 000001 PAR2: BLKw 1 ; PARAMETERS 
136 001542 000001 MANT2 BLKwW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
1368 001544 000001 DZCR3: .BLKW 1 ;CONTROL STATUS REGISTER FOR DZ11 NUMBER 3 
1369 001546 000001 DZVC3: .BLKW ;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 3 
1370 001550 000001 DZLV3: .BLKW 1 s;PRIORITY LEVEL AND EIA FLAG SELECTOR 
1371 001552 000001 LINE3: .BLKW 1 “ LINES SELECTED 
1372 001554 000001 PAR3 -BLKW 1 PARAMETERS 
be 001556 000001 MANT3: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
1375 001560 000001 DZCR4: .BLKW 1 :CONTROL STATUS REGISTER FOR DZ11 NUMBER 4 
1376 001562 000001 DZvC4: .BLKW 1 RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 4 
1377 001564 000001 DZLV4: .BLKW | :PRIORITY LEVEL AND EIA FLAG SELECTOR 
1378 001566 000001 LINES: .BLKW 1 sALL LINES SELECTED 
1379 001570 000001 PAR -BLKW 1 ; PARAMETERS 
if 001572 000001 MANT4: .BLKW 1 MAINTENANCE MODE FOR THIS DEVICE 
1382 001574 000001 DZCR5: .BLKW 1 CONTROL STATUS REGISTER FOR DZ11 NUMBER 5 
1383 001576 000001 DZVCS: .BLKW 1 RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 5 
1384 000001 DZLV5: .BLKW 1 :PRIORITY LEVEL AND EIA FLAG SELECTOR 
1385 001602 000001 LINES BLKW 1 sALL LINES SELECTED 
1386 000001 PARS -BLKW 1 :P TERS 
if 001606 000001 MANT -BLKW 1 :MAINTENANCE MODE FOR THIS DEVICE 
1389 001610 000001 DZCR6: .BLKW 1 CONTROL STATUS REGISTER FOR DZ11 NUMBER 6 
1390 001612 000001 DZVC6: .BLKW 1 ;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 6 
1391 001614 000001 DZLV6: .BLKW 1 :PRIORITY LEVEL AND EIA FLAG SELECTOR 
1392 001616 000001 LINE6: .BLKW 1 sALL LINES SELECTED 
1393 001620 000001 PAR -BLKW 1 ; PARAMETERS 
ioe 001622 000001 MANT6: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
1396 001624 000001 DZCR7: .BLKwW 1 CONTROL STATUS REGISTER FOR DZ11 NUMBER 7 
1397 001626 000001 DZVC7: .BLKW 1 RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 
1398 000001 DZLV7: .BLKW 1 ;PRIORITY LEVEL AND EIA FLAG SELECTOR 
1399 001632 000001 LINE7: .BLKWw 1 sALL LINES SELECTED 
1400 1 000001 PAR7 -BLKW 1 ; PARAMETERS 
1401 001636 000001 MANT7: .BLKW 1 ;MAINTENANCE MODE FOR THIS DEVICE 
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DZCR10: .BLKW ; CONTROL STATUS REGISTER FOR DZ11 NUMBER 10 

: ;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 10 
PRIORITY LEVEL AND EJA FLAG SELECTOR 
sALL LINES SELECTED 
; PARAME TERS 
[MAINTENANCE MODE FOR THIS DEVICE 


;CONTROL STATUS REGISTER FOR DZ11 NUMBER 11 
RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 11 
PRIORITY LEVEL AND EIA FLAG SELECTOR 

ALL LINES SELECTED 

; PARAMETERS 

;MAINTENANCE MODE FOR THIS DEVICE 


;CONTROL STATUS REGISTER FOR DZ11 NUMBER 12 
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 12 
;PRIORITY LEVEL AND EIA FLAG SELECTOR 

‘OAR i$ SELECTED 


ARAME TERS 
;MAINTENANCE MODE FOR THIS DEVICE 


: CONTROL STATUS REGISTER FOR DZ11 NUMBER 13 
RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 13 

: PRIORITY LEVEL ms EIA FLAG SELECTOR 

zALL te SELECTE 

; PARAMETERS 


;MAINTENANCE MODE FOR THIS DEVICE 


;CONTROL STATUS REGISTER FOR DZ11 NUMBER 14 
RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 14 
;PRIORITY LEVEL AND EIA FLAG SELECTOR 

sALL LINES SELECTED 

; PARAMETERS 

;MAINTENANCE MODE FOR THIS DEVICE 


;CONTROL STATUS REGISTER FOR DZ11 NUMBER 15 
;RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 15 
;PRIORITY LEVEL AND EIA FLAG SELECTOR 

yt Lee SELECTED 


ARAME TERS 
;MAINTENANCE MODE FOR THIS DEVICE 


;CONTROL STATUS REGISTER FOR DZ11 NUMBER 16 
:RECEIVER AND BASE VECTOR FOR D211 NUMBER 16 
:PRIORITY LEVEL AND EIA FLAG SELECTOR 

sALi LINES SELEC TED 

; PARAME TERS 

MAINTENANCE MODE FOR THIS DEVICE 


;CONTROL STATUS REGISTER FOR DZ11 NUMBER 17 
[RECEIVER AND BASE VECTOR FOR DZ11 NUMBER 17 
;PRIORITY LEVEL AND EIA FLAG SELECTOR 

SALL LINES SELECTED 

: PARAME TERS 

s;MAINTENANCE MODE FOR THIS DEVICE 


+4 HY YY Ys ~_ — =) 3 3 


4 ss 9 9 ss 


1 
5 
1 
1 
1 
1 
1 
1 
l 
1 
; 
; 


+ + - 2 4 2 4 4 4 YY — —) — -» —» 
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1459 002000 177777 DZ.END: 177777 
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;DEFINITIONS FOR TRAP SUBROUTINE CALLS 
;POINTERS TO SUBROUTINES CAN BE FOUND 
IN THE TABLE IMMEDIATELY FOLLOWING THE DEFINITIONS 


SRR RARER ERE EERE EEE REE ERE EKEEEKREEEEERREEERERK ERE 


002002 . TRPTAB: 

ADVANCE =TRAP+0 ; ADVANCE TO NEXT TEST( OR SCOPE THIS ONE) 
002002 - ADVANCE 

SCOP1=TRAP+1 ; LOOP ON CURRENT DATA HANDLER 
002004 . SCOP 1 

TYPE=TRAP+2 ; TELETYPE OUTPUT ROUTINE 
002006 . TYPE 

INSTR= TRAP+ ; ASCII STRING INPUT ROUTINE 
002010 TR 

INSTER= TRAPS4 ; INPUT ERROR HANDLER 
002012 . INSTER 
002014 PARAM=TRAP+5 ; NUMERICAL DATA INPUT ROUTINE 


PARAM 
SETFLG=TRAP+6 ; SET FLAG ROUTINE 


002016 - SETFLG 
SAVOS=TRAP+7 5 : REGISTER SAVE ROUTINE 


. SAVO 
RESOS=TRAP*10 ; REGISTER RESTORE ROUTINE 
CONVRT= sage 4) ; DATA OUTPUT ROUTINE 
CNVRT=TRAP+12 ; DATA OUTPUT ROUNTINE WITHOUT CR/LF. 


002020 
002022 
002024 
002026 - CNVRT 

DEVICE. CLR=TRAP+13 :CALL TO ISSUE A DEVICE CLEAR 
002030 006652 -DEVICE.CLR 

DELAY=TRAP+14 ;CALL TO DELAY FOR FAST CPU'S 
002032 - DELAY 

PARMD=TRAP+15 CONVERT DECIMAL STRING TO OCTAL 
002034 - PARMD 

PAWCH=TRAP+16 SET FLAG ECHO OR CABLE 
002036 -PAWCH 

DCLASM=TRAP+17 ;CLEAR DEVICE, SET MAINT. BIT IF I MODE 
002040 -DCLAS 


° 
DL RR E EKER REE REE E REE ERERRERREREKEEE REE E 





CZDZ2A-FO 
CZDZAF .P11 
1502 
1503 
1504 
1505 002042 
1506 002044 
1507 204 
1508 002050 
1509 002052 
1510 002054 
1511 002056 
1512 2 
1513 002062 
1514 002 
1515 002 
1516 002070 
1517 
1518 002072 
1519 002074 
1520 002076 
1521 002100 
1522 
1523 


MACY11 30A(1052) 
26-NOV-79 11:03 


a 
2 


ah ed a al ea a ol cs ed 
AABRAGKAOS 

SeSeeees 

AUSWHWWN Oo 


26-NOV-79 11: 
AP 
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T PARAMETER BLOCK 


3DZ11 VECTOR AND REGISTER INDIRECT POINTERS 
sWORKING AREA 


DZCSR: 160040 ;:R/W 
HDZCSR: 160041 ; 
ZRBUF: 160042 :READ ONLY 
HD ZRBUF : 160043 ;READ ONLY 
ZLPR: 160042 ;WRITE ONLY 
HDZLPR: 160043 :WRITE ONLY 
DZTCR: 160044 :R/W 
HDZTCR: 160045 :R/W 
DZMSR: 160046 :READ ONLY 
HDZMSR: 160047 :READ ONLY 
DZTDR: 160046 :WRITE ONLY 
HDZTDR: 160047 :WRITE ONLY 
“DEFAULT DZ VECTORS 
DZRIV: 300 :REC INTR VECTOR 
DZRIS: 302 ‘REC INTR STATUS 
D2TIV: 304 ‘XMIT INTR VECTOR 
DZTIS: 306 ‘XMIT INTR STATUS 


SEQ 0035 
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TIME TABLE FOR RELATIVE TIMING TESTS 


WWW 
Wh 


ASSBVEAGE 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


wv 
Par 
WN 
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548 


WADIA NAAT IU 
WI & 
WDBNAUSWN—O”O 


SESE TRS. 


NNNNN 


ca ec a el ce a ce a ce el ee el ce cl ca a ee a a el ce cl cl ed el cd 
FwWNh-O”o 


VAAN 


575 


en cna 
1:03 


26-NOV-79 


012737 


013746 


000004 
002274 
177777 


000176 
000174 
000004 


011440 
001416 
004270 
000001 
000377 
176542 
003114 
001500 
001416 


26-NOV-79 


000004 
176670 


001160 
001162 


004726 


176560 
001415 


START: 


20$: 
22$: 


21$: 


31$: 
29$: 


30$: 


32$: 
65$: 


Lt 3 


11:06 PAGE 38 
PROGRAM INITIALIZATION AND START UP. 


; PROGRAM gy St aT 
;LOCK OUT INTERRUPTS 


SET UP 
:SET UP 


PROCESSOR STACK 
POWER FAIL VECTOR 
PROGRAM CONTROL FLAGS AND COUNTS 


LEAR 
:TYPE TITLE MESSAGE 


CLEAR THE i" START NEW ENVIRONMENT 


» ASTACK, SP SET UP STA 
#PR7 


:LOCK OUT INTERRUPTS 
ASPWRDN #24 [SET UP POWER FAIL VECTOR 
DZNUM , SAVNUM SAVE NUMBER OF DEVICES IN SYSTEM. 
$PASS : CLEAR PASS COUNT 
SERFLG ;CLEAR ERROR FLAG 
#DZ.MAP,ACTIVE :GET MAP POINTER. 
#1 ,RUN POINT oil My A FIRST DEVICE. 


SERTTL [CLEAR ERR 
SERRPC ;CLEAR LAST ERROR POINTER 
“SET UP FOR TE 


STSTNM ST 1 

#.START,SLPADR :SET UP FOR POWER FAIL BEFORE 
TESTING STARTS 

FOR SPALL 11 SWITCH REGISTER COMPATIBILITY 

6,-(SP) SAVE BUS ERROR PS 


4.-(SP) sSAVE BUS ERROR PC 

#20$,4 :SET UP TO TRAP TO THIS ROUTINE 

#-1,aSWR [CAN 177570 BE REFERENCED? 

22$ ‘IF SO AND IT IS -1, TREAT LIKE SWITCHLESS 
21$ [IF YES,SKIP AROUND THE SETUP 


SET 
:REMOV VE THE TRAP FROM THE STACK 
ASWREG, SWR IF NO, TRAP COMES HERE.POINT TO SOFTWARE SWR 
#DISPREG, “DISPLAY ;POINT TO SOFTWARE DISPLAY REGISTER 


pe , ;RESTORE THE BUS ERROR VECTOR 

+, 

INIFLG TITLE ALREADY PRINTED? 

29$ : CH IF YES 

442 , HSENDAD :RUNNING UNDER ACT? 

31$ ZIF YES DONT PRINT TITLE 

eMTITLE ;PRINT THE DIAGNOSTIC'S TITLE 

INIFLG SET THE ONCE ONLY FLAG 

SENVM DETERMINE WHETHER APT SIZING SHOULD BE DONE 
30$ IF NOT, GO CHECK FOR AUTO-SIZING 
PC,SETAPT ; OTHERWISE, GO DO APT SIZING FROM ETABLE 
HDRFLG MAKE SURE STATUS TABLE IS PRINTED 

16$ :GO PRINT bz STATUS TABLE 

#SWO0 ,aSWR :RESEL LECT 

32$ ;IF YES, 60 SET UP_THE INFORMATION 

#377, INIFLG [ON 1ST START; MUST ANSWER QUESTION 

-+10 IF NOT ANSWERING QUESTIONS 

aSWR SARE U AUTO SIZING? 

32$ sNO AUTO SIZE! NO SWOO=1 ON 1ST START! 
73$ :1F NO, SKIP_THE INTERROGATION 

#DZ.MAP ,RO [POINT TO THE BEGINNING OF THE MAP TABLE 
HDRFLG ;MAKE SURE A MAP GETS PRINTED 


(RO) + CLEAR A TABLE LOCATION 


SEQ 0037 
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002436 020027 002000 CMP RO,#DZ.END sHAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 
1605 001374 BNE 65 :I1F NOT ,CLEAR THE NEXT LOCATION IN THE TABLE 
105337 001415 DECB INIFLG INSURE NO AUTO SIZING IF QUESTIONS ANSWERED! 


+ THE FOLLOWING ARE PARAMETERS USED TO FILL IN THE MAP 
; TABLE AND SET UP THE DIAGNOSTIC. 


GET THE BASE ADDRESS OF THE DZ11°S 


—_ 


Besee 


104403 :CALL_THE STRING INPUT ROUTINE 

003334 66$ ;POINTER TO MESSAGE TO BE PRINTED 

104405 PARAM :CALL_THE OCTAL TO ASCII CONVERT ROUTINE 
160000 SLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
163770 SHIGHEST LEGITIMATE VALUE OF aah RESPONSE 
si ;POIN TER TO MAP LOCATION y 4 BE F 


el ce ee ad ct a ce ed ce ee ct 
ARARAARARAARAO 
ed ae ced ce ceed ed cae ed aed od 
WOONAUSWN—O 


001 OYTE 1 SNUMBER OF PARAMETERS TO 
~013737 001500 001310 MOV DZCRO, $BASE ;COPY BASE ADDRESS TO ETABLE 


GET THE BASE VECTOR ADDRESS 


: CALL THE STRING INPUT ROUTINE 
POINTER TO MESSAGE TO BE PRINTED 
SeALL THE OCTAL TO ASCII CONVERT ROUTINE 
sLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
:POINTER TO MAP LOCATION TO BE FILLED 
3 ;MASK 4 of tehie BITS FOR THIS PARAMETER 
wevTe 1 PARAMETERS TO STORE 
001502 001304 MOV DZVCO,$VECT1 COPY VECTOR TO ETABLE 


:GET THE BUS REQUEST LEVEL 


Ayr THE STRING INPUT ROUTINE 
ae TER TO MESSAGE TO BE PRINTED 
THE OCTAL TO ASCII CONVERT ROUTINE 
TOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
;HIGHEST SU gp Be OF a RESPONSE 


0 


. 1 R OF P OSs 
001504 001305 VE DZLVO,$VECT1+1 GET BUS REQUEST LEVEL INTO ETABLE 
001305 $VECT1+1 ALIGN THE BITS PROPERLY 
SVECT1+1 ALIGN THE BITS PROPERLY 
$VECT1+1 :ALIGN THE BITS PROPERLY 
$VECT1+1 ALIGN THE BITS PROPERLY 
SVECT1+1 z:ALIGN THE BITS PROPERLY 


zFIND OUT IF MODULE IS EIA OR 20 MA. 
TYPE 74$ PRINT EIA MESSAGE 
;USE $TMP1 


‘1S KEYBOARD DONE? 
‘IF NOT, WAIT FOR IT 
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017746 176354 @$TKB,-(SP) 7I1F YES, PUT CHARACETR ON STACK 
2716 000240 #240, (SP) STRIP DOWN CHARACTER 
000015 MPB #15, (SP)+ 21S IT 
81$ :IF SO, "Ger OUT 


176342 MO -(SP) ,a$TPB ‘IF NOT, PRINT CHARACTER 
100000 WBIT15,DZLVO = CLEAR EIA LAG 
000102 #102, (SP)+ iIS IT 
BN p ‘IF MoT. rH BACK FOR INPUT 
100000 WBIT15,DZLVO IF $O, SET FLAG 
80$ :GET MORE INPUT 


:GET THE MODE OF OPERATION (E,1,S) 


INSTR ;CALL_THE STRING INPUT ROUTINE 

72$ :POINTER TO THE MESSAGE TO BE PRINTED 
SETFLG ;CALL THE MAINTENANCE FLAG SETUP ROUTINE 
MANTO THIS IS THE FLAG BEING SETUP 


GET THE NUMBER OF DZ11°S RUNNING 
or ti = CALL THE STRING INPUT ROUTINE 
PARAM 


;HIGHEST LEGITIMATE pny OF EXPECTED RESPONSE 
:POINTER TO MAP LOCATION TO BE FILLED 

0 MASK OF INVALID BITS FOR THIS PARAMETER 

1 NUMBER OF PARAMETERS TO STORE 


012737 000377 001506 #377,LINEO ;SET UP DEFAULT LINES 
012737 017470 001510 #17470, PARO 


012737 00672 MO #1 ,DLYCNT ; INITIALIZE BELAY COUNT 
0 #SWO3,aSWR :DO YOU WANT PARAMETERS? 
:1F NO, SKIP THE PARAMETER CALL 
[GET PARAMETERS 
001312 : P INITIALIZE ACTIVE DEVICE SELECTION PARAMETER 
001410 :COPY THE NUMBER OF DEVICES 
001411 $TMP1 , SAVNUM :COPY A BACKUP NUMBER 
$TMP1 :STMP1 CONTAINS THE COUNT OF UNINITIALIZED 
61$ : SELECTED DEVICES 
SET A BIT FLAG TO INDICATE AN ACTIVE DEVICE 
$DEVM POINT TO THE NEXT DEVICE 
62$ :GO DO THIS PROCEDURE AGAIN 
001222 : SDEVM,$T 


MP2 74 OF TIMES 
001404 SDEVM ,DZACTV COPY THE ACTIVE DEVICE PARAMETER 
#D7CRO,RO SET A POINTER TO THE SPECIFIED INFORMATION 
#D2CR1.R1 ; THE REST OF THE MAP TABLE 
#SDDWO,R2 ; TO_ETABLE’ p. PEYESS wyotin WORDS 
ZINITIALIZE THE ‘'C'’ BIT FOR A ROTA TION 
>SKIP MAPPING SETUP FOR DEVICE O- IT"S DONE 
ISOLATE A SELECTION FLAG IN THE ‘C’’ BIT 
41$ eI THIS pity SELECTED? IF YES, GO LOAD TABLE 
177777 ; TERMINATE THE LIST 
004244 63$ [GO TO THE NEXT BLOCK 


TER 
: 2STOP BITS; 8 BIT/CHAR 


Rene rer ne Re REESE 
NNN 
STs SSSS ES SS 





> 


4 
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CZDZAF .P11 


41$: MOV (RO)+, (R1) ZADDRESS 
000010 #10, (R1)+ ‘POINT TO THE NEXT D211 ADDRESS VALUE 
MOV (R05 (R1) : OR 
000010 (R1)+ “POINT TO THE NEXT VECTOR VALUE 
MOV ft Thy (R1)+ TLEVEL 
(RO) +, (R1)+ TLINES 
177774 =4 (ROS, (R2) [GET THE EIA FLAG FROM THE PRIORITY WORD 
077777 reer. (Ro) SISOLATE THAT FLA 
(RO), (R2)+ [ADD PARAMETERS TO DEVICE DESCRIPTOR WORD 
(RO)+, (R1)¢ * PARAME TERS 
(RO) +. (R1)+ [MAINTENANCE MODE 


BR 64$ 
176036 738: sASK PARAMETERS ? 
. BNE 4e$ :1F NO, GO DO AUTO SIZING 
3 :GO SET UP FOR nb SIZING 
42$: PC :GO ASK PARAMETERS 
: INSURE NO AUTO a ite IF QUESTIONS ANSWERED 
:GO TO THE NEXT BLOC 


:GET THE ACTIVE LINES PARAMETER 


a 


WIIZZA2 3 
—O Dano 
FS 
D8 et aed —_ 
NONS 


“ 
® 


. 


NASBSVS 


dated 


CALL _THE STRING INPUT ROUTINE 


NNN NSN SNNS 
RASASSS 


A 
MASK OF INVALID BITS FOR THIS PARAMETER 
NUMBER OF PARAMETERS TO STORE 
MAKE SURE THE CHANGES ARE PRINT. 


: THIS SEGMENT CHECKS TO MAKE SURE THE LINE PARAMETER JUST ENTERED 
71S LEGITIMATE IN STAGGERED MODE OPERATION IF THAT MODE WAS SELECTED 


71S Ang oy THE MODE OF OPERATION? 
. SKIP THIS SEGMENT 
ns SCRATCH COPY OF THE ACTIVE Ba 
o ie tEtTep c BIT(EVEN NUMBER 


N 
Fd 
w 


NNNN 
* 
N 


BIFARUIBS SSS 


Ss TOO. 
HECK THE NEXT PAIR 
TER 


Y. 
0 
etm ttatmtmt oY tty 


2S 


GR 
— 


Se Be Se Be Be Be Be Be Be Be Be Be 
esto 7 te ee te 
wn 


AF 


an 
— 
je 


S_AN ERROR 
HE “C’' BIT ‘? TESTING OF THE NEXT PAIR 
‘60 TEST THE NEXT PAIR OF FLAGS 


:GET THE LINE PARAMETER REGISTER ARGUMENT 


NNN NNN SNS 
SSBLF 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


y 


INSTR CALL THE STRING INPUT ROUTINE 
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003540 POINTER TO MESSAGE TO BE PRINTED 
104405 ; CALL 

000000 

000017 
1510 


N 
- 


N AT LLED 
MASK OF INVALID BITS FGR THIS PARAMETER 
R_OF PARAMETERS TO STORE 
#LINEO,R2 :POINT % THE LINE SELECTION PARAMETER 
#PARO RS ;POINT TO THE CHOSEN PARAMETERS 
a RG : USE BAUD RATE AS AN INDEX IN DELAY TABLE 
ALIGN INDEX ON WORD BOUNDARY 
DLYTBL (RG), DLYeNi wise! THE DELAY COUNT FOR THIS BAUD RATE 
(R3) PLACE IN HIGH BYTE 
#10070, (R3) [PLACE EXTRA PARAMETERS INTO LOC 
(R2),14(R2) [LOAD THE LINES 
(R3) ,14(R3) LOAD THE PARAMETERS 
#14,R2 POINT TO THE NEXT SET 
OF BOTH PARAMETERS 
THAVE THE TABLE BOUNDARIES BEEN EXCEEDED? 
:1F NOT E PARAMETERS 


; RETURN 
<300>/1S1 CSR_ADDRESS (160000:1 
<200>/1ST VECTOR — (300:770): 
<200>/BR LEVEL (4:6): 
<200>/LINES ACTIVE BY air <IN OCTAL>(001:377): / 
<200>/DEF AULT BAUD RATE <IN OCTAL>(00: 17: / 
<200>/# OF 0211'S ae (1:20): 


asyysz 
RESSeeSesee 
Taugsssss 


Sok 


SSSLEALAS 


BIB 


<200>/ CSTAGGER 
<200>/TYPE ‘‘A’' FOR EIA MODUL 
<200>/ENTER DELAY PARAMETER: / 


PNG PNG NG ae ee ee RR RR 


0 
042600 052116 051105 
O0ce4 


122737 000377 001415 4577, INIFLG : ONLY DO AUTO SIZE ON 1ST START 
001006 BNE 1 


000200 174676 #8117 ,aSwWR 3B1T7=12? 
BNE 7BR IF NO ae sin 
011612 PC ,AUTO.SIZE :GO DO THE AUTO SIZE 
: HDRF LG sHAS THE TABLE OBEEN TYPED YET? 
:1F SO, DON'T TYPE IT AGAIN 
ZINDICATE THAT THE TABLE WILL BE TYPED 
: TYPE MAP HEADER 
7SET POINTER 
:POINT TO THE MAP LOCATION 
1 SET DATA 
177777 1,$TMP2 SEND OF LIST? 
1$ :BR IF 


YES 
CALL _THE OCTAL TO ASCII CONVERSION ROUTINE 
CONVERT THE DATA AT THIS ADDRESS 
7GO PRINT THE NEXT PARAMETER 
1S PROGRAM RUNNING UNDER MONITOR 


1026 BNE 3$ :¥ 
032777 #SWO06 ,ASWR :DESELECT SPECIFIC DEVICES?? 


1 
2 
3 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


St et ae ee tee, te, ee a ta ee, te ee, 
at os ss as ss Ss SS 


St totsettct heer a 


00 0000 Co 
od ond od od 
Who 
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1814 


02.00 00 CO 00 
aad aad aid aod ad 
OONOW 


SESSRERREZES2= 


sh 
on 


MACY11 30A(1052) 
26-NOV-79 


11:03 
010317 


174566 001312 
010171 
174546 001404 
001404 
000020 174530 


174440 
010215 
000240 005010 
ttt 005010 


011070 001126 
010106 
174344 


D 4 
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4t 
PROGRAM INITIALIZATION AND START UP. 


9$ 
@SWR ,DZACTV 
DZACTV,RO 


#SWO04 ,aSWR 
18$ 


STACK, SP 
#PR7 

arse 

2$ 

MBIT? ,aSWR 
1$ 

-MLOCK 
#NOP ,, TTST 
2s 

BRW, TTST 
CYCLE ,SLPADR 
-*R 
@$LPADR 


[TYPE THE MESSA 
:ZERO DATA DISPLA 
“WAIT 


FOR USER tO. Ht WHAT DEVICES TO RUN 
S THE NUMBER VALID 

IF NUMBER IS OK. 

TELL USER t INVALID NUMBER. 

7STOP EVERY THING. 


;RESTART THE PROGRAM AGAI 
GET NEW DEVICE PATTERN 
;SHOW THE USER 


L_THE OCTAL TO ASCII CONVERT ROUTINE 
SLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
HIGHEST LEGITIMATE ns oe OF EXPECTED RESPONSE 
;POINTER TO MAP LOCATION TO BE FILLED 
[MASK OF INVALID BITS Ay THIS PARAMETER 
NUMBER OF PARAMETERS TO STORE 
:PREPARE TO CLEAR THE FLOATING 
: VECTOR AREA. 776 
: START ren ioe "PC+2 = HALT’ 


SET UP STACK 


;LOCK OUT INTERRUPTS 
is ae UNDER MONITOR CONTROL 
CHECK FOR LOCK ON TEST 


BR IF NO LOCK DESIRED. 


: TYPE LOCK SELECTED. 
JUST SCOPE ROUTINE 


CONTINUE ALONG. 

PREPARE NORMAL SCOPE ROUTINE 

sSTART AT “'CYCLE’’ FIND WHICH DEVICE TO TEST 
RUNNING’ 


: TYPE 
SSTART TESTING 








CZDZA-F 0 MACY11 ae? 26-NOV-79 11:06 PAGE 44 
CZDZAF .P11 26-NOV-79 11:03 END OF PASS ROUTINE 


END OF PASS 
: TYPE NAME OF TEST 
[UPDATE PASS COUNT 
CHECK FOR EXIT TO ACT=-11 
:RESTART TEST 

-SBTTL END OF PASS ROUTINE 


Ie titi rir iri iri iii tii titi iti iii it tit) 
INCREMENT THE PASS — ($PASS) 

;*IF THERES A MONITOR GO TO IT 

;*I1F THERE ISN'T JUMP TO CYCLE 


SEOP: 
SERRPC ;CLEAR LAST ERROR PC 
SERFLG ;CLEAR ERROR FLAG 
-MEPASS dhe END PASS 
-MCSRX YPE CSR 
CSR ‘SHOW IT 
;TYPE VECTOR 


SHOW IT 
RAISE PASS COUNT 
TYPE PASSES 


SHOW IT 
;RESTORE PASS COUNT 
: TYPE ERRORS 


SHOW IT 
sARE ALL DEVICES TESTED? 
:BR IF NO. 


$DOAGN 
001411 RESTORE THE COUNT 

TIMES :ZERO THE NUMBER OF ITERATIONS 

$SPASS : INCREMENT THE PASS NUMBER 
001242 2 DON'T ALLOW A NEG. NUMBER 
PC)+ OOP? 


SEOPCT: 


SDOAGN ssVeS 
(PC)+,a(PC)+ ; sRESTORE COUNTER 
SENDCT: .WORD 1 


$GET42: MO a4#42,R0 ::GET MONITOR ADDRESS 
$DOAGN 53 


SENDAD: PC, (RO) 
NOP 


SDOAGN: 
00013 a(PC)+ 
011070 SRTNAD: . CYCLE 
000001 XCSR: 

006 
002042 
000001 


CPt a Rr 


6.2 


XVEC: 
3.2 


a2 et St tS SS SS SS SS Ss Ss as ss SS SYS 


woonoov0onvo 
—~ 4 st os 
MWSWh-oO 


003 
002072 
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000001 

006 
001242 
000001 


006 
001132 


11:03 
002 


002 


007360 
001136 
012376 
174146 


174142 
040000 


000004 
005064 
177060 
000004 


000004 


001123 
001123 
001226 
004000 
001242 


001124 
001226 
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177776 
174124 


174040 


001124 


END OF PASS ROUTINE 
XPASS: 1 
-BYT 


$PASS 

XERR: 1 
-BYTE 6,2 
SERTTL 


SCOPE LOOP AND ITERATION HANDLER 


-SBTTL SCOPE HANDLER ROUTINE 


PRR REE EERE EERE ERE Ee 

SS THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO oS ogy hg 08> 

a THE SWITCH OPTIONS on teat BY THIS ROUTINE ARE 


LOOP ON TEST 
INHIBIT ITERATIONS 
3s SCOPE=IOT 


PC,SERV.G sFIND OUT IF <*G> WAS HIT 
SERRPC :CLEAR LAST ERROR PC. 
MTST14+2, (SP) 21S THIS THE ottes AT ir BEGINNING OF TST1? 
B $XTSTR ;1 T LOOP ON | 
TTST: 1$ : (IF LOCK su02=1 : THIS LOC =240) 
T D DONE? 


a$TKS 
OVER BR (LOCK: HIT KEY TO GOTO NEXT TEST) 
@$TKB,-2(SP) : CLEAR DONE BIT 
1$: #B1T14,aSwR :LOOP ON PRESENT TEST? 
BNE SOVER SYES IF SwW14=1 
:AAAHHSTART OF CODE FOR THE XOR TeSTERManee 
$XTSTR: BR 6$ :1F RUNNING: ON THE "'XOR’' TESTER CHANGE 
+: THIS INSTRUCTION TO A ‘NOP’’ (NOP=240) 
@#ERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERRON VECTOR 
#5$, a#ERRVEC :2SET FOR TIMEOUT 
a#177060 


TIME OUT ON XOR? 
(SP)+,aMERRVEC ;:RESTORE THE ERROR VECTOR 
$SVLAD :GO_TO THE NEXT TEST 
(SP)+, (SP)+ 2; CLEAR THE STACK AFTER A TIME OUT 
(SP) + ,@MERRVEC RESTORE THE ERROR VECTOR 
SOVER LOOP ON Meg PRESENT TEST 
cos FOR THE wor’ TeSTeReanen 
SERFLG = AN © ses OCCURRED? 


3$ BR IF 

SERFLG :3ZERO THE ERROR FLAG 

STIMES CLEAR THE NUMBER OF ITERATIONS TO MAKE 
. T11,aSWR AP Tin ace oF 


$PASS :1F FIRST PASS OF PROGRAM 

1$ INHIBIT ITERATIONS 

$ICNT S INCREMENT ITERATION COUNT 
$TIMES,SICNT 3 CHECK THE NUMBER OF ITERATIONS MADE 
SOVER ;:BR IF MORE ITERATION REQUIRED 
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012737 


105737 
100002 


0004 30 
010046 
017600 
122737 
001011 
132737 


001122 


8883s 
— 4 Se 
fee oS es 
—NMnnr 
NOMOM 


001000 
001362 
001362 


010000 
000002 


001177 


000002 
000001 


000100 
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001124 
001226 


001240 
173756 


001417 


173714 


173670 


001254 
001255 


SCOPE HANDLER ROUTINE 


1$: MOV #1,$1CNT ies tg AP THE ITERATION COUNTER 
MOV SMXCNT ,STIMES : eeu NUMBER OF ITERATIONS TO DO 

$SVLAD: INCB $TSTNM COUNT TEST NUMBERS 
MOVB STSTNM,STESTN ::SET TEST NUMBER IN APT MAILBOX 
MOV (SP) ,SLPADR 2:SAVE SCOPE LOOP ADDRESS 

SOVER: MOV STSTNM, @DISPLAY et Ag TEST NUMBER 


MOV SLPADR, (SP) FUDGE RETURN ADDRESS 
3$: CLRB PNTFLG. CLEAR THE MAINTENANCE BIT SETTER AFTER EACH TEST 
TST MODE SHAS THE MODE BEEN pt 
BNE 4$ 7IF NOT INTERNAL , GO DO A TEST 
MOVB AMAINT ,MNTFLG ‘IF INTERNAL MODE “NOW, SET THE MAINTENANCE BIT 
4$: RTI :GO DO THE TEST 
BRW: 406 
SMXCNT: 5 72MAX. NUMBER OF ITERATIONS 
omc FOR FREEZE ON CURRENT DATA 
-SCOP1: BIT #SWO9 ,ASWR sis yo (SET)? 
BEQ 1$ BR I F NOT SET 
TST LOCK :I1S THER A TIGHT LOOP SPECIFIED? 
BEQ 1$ IF NO, RETURN 
MOV LOCK, (SP) iif YES, GOTO THE ADDRESS IN LOCK. 
1$: RTI :GO BACK. 
—VPE? BIT #SW12,aSWR : INHIBIT ALL PRINTOUT?? 
BEQ 1$ 3 IF NOT, GO TYPE 
ADD #2, (SP) : SKIP OVER MESSAGE POINTER 
RTI ;RETURN TO WHERE PROCEDURE WAS INVOKED 


1$: 
-SBTTL TYPE ROUTINE 


STARR EEEEREEKEREEKREREREEEEKEERKEREEREKRREEREREEREEKEEERK 


z*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 iF 
3 * THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
;*NOTE1: L_ CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


LL 

: *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
> *NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
*e 
7*CALL: 
3*1) USING A TRAP INSTRUCTION 
con TYPE »MESADR :zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
*@ 
i” TYPE 
;* ME SADR 
$TYPE: TSTB STPFLG 31S THERE A TERMINAL? 

BPL 1$ TBR IF YES 

HALT 3ZHALT HERE IF NO TERMINAL 

BR 3$ 7 sLEAVE 
1$ MOV RO,-(SP) : ER 

MOV a2(SP),RO 7:GET ADDRESS OF ASCIZ STRING 

CMPB #APTENV, SENV 2 ; RUNNING IN APT MO 


D 
BNE 62$ 3:NO,GO CHECK FOR APT CONSOLE 
BITB #APTSPOOL ,SENVM ::SPOOL MESSAGE TO APT 


SEQ 0045 
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2029 
30 
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005350 
005570 


000040 


000002 
000011 
000200 


005556 


005512 
001176 


001174 
000001 


005512 
005556 


000040 
005512 
009007 


173452 
000002 
000015 


005556 
000012 


26-NOV-79 
TYPE 


001255 


005556 


173444 
000002 


000002 


1$: 


6 . WORD 
62$: BITB 


BNE 
23: MOVB 
60$: MOV 
3$: ADD 
4$: CMPB 


BR 
5$: JSR 
6$: CMPB 


7$: DECB 


sHORIZONTAL TAB 


8$: MOVB 
9$: 


STYPEC: 


1$: CMPB 


B 
SCHARCNT : . WORD 


$TYPEX: RTS 


11:06 PAGE 47 
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62$ 
RO,61$ 
PC, SATY3 


#APTCSUP , SENVM 


(RO)+,=(SP) 
4$ 

(SP) + 
(SP)+,RO 
#2, (SP) 
#HT, (SP) 

8$ 
ACRLF , (SP) 
5$ 


(SP) + 


SCHARCNT 
2s 


PC, $TYPEC 
eaten 


2 
$NULL ,- (SP) 
1(SP) 

6$ 

PC, $TYPEC 
SCHARCNT 

7$ 
PROCESSOR 
#* (SP) 
PC,$TYPEC 
#7, SCHARCNT 


(SP) + 
2s 


ALF ,2(SP) 
STYPEX 
(PC)+ 

0 

PC 


:éNO, GO CHECK FOR CONSOLE 
TUP MESSAGE ADDRESS FOR APT 
SSAGE TO APT 


DRESS 
OLE SUPPRESSED 
2 eYES, SKIP TYPE OUT 

PUSH CHARACTER TO BE TYPED ONTO STACK 
[:BR IF IT ISN'T THE TERMINATOR 
72 1F TERMINATOR POP IT OFF THE STACK 
Panat RO 

3 a RETURN PC 


«BRANCH IF <HT> 
; BRANCH IF NOT <CRLF> 


:zPOP <CR><LF> EQUIV 
7z TYPE A CR AND LF 


3:CLEAR CHARACTER COUNT 
3:GET NEXT CHARACTER 
7:GO TYPE THIS CHARACTER 
::I1S IT TIME FOR Boon CHARS .? 
32:1F NO GO GET NEXT CHAR. 
3:GET # OF FILLER CHARS. NEEDED 
$OOe THE NULL CHAR. 
= DOES A NULL NEED TO BE TYPED? 
IF NO--GO POP THE NULL OFF OF STACK 
:I60 TYPE A NULL 
;:DO NOT COUNT AS A COUNT 
; LOOP 


si ay TAB WITH SPACE 
TYPE A SPACE 
> :BRANCH IF NOT AT 


:TAB STOP 
 SPOP SPACE OFF STACK 
2 iGET NEXT CHARACTER 
7sWAIT UNTIL PRINTER IS READY 


:;LOAD CHAR TO BE TYPED INTO DATA REG. 
iim ee Sg A CARRIAGE RETURN? 


IF 
; YES~-CLEAR CHARACTER COUNT 


XIT 
iis CHARACTER A LINE FEED? 
: sBRANCH IF YES 

:COUNT THE CHARACTER 
>: CHARACTER COUNT STORAGE 


-SBTTL APT COMMUNICATIONS ROUTINE 


SRA REE EERE ARERR RERERAERAERERERREEEEKKKKER ERE 


SEQ 0046 
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MACY11 <P io codon” * 11:06 PAGE 
CZDZAF .P11 1:03 


48 
26-NOV-79 1 T COMMUNICATIONS ROUTINE 


000001 006026 S$ATY1: #1,$FFLG 


3370 REPORT FATAL ERROR 
000001 006024 S$ATY3: #1, ,SMFLG 


3:70 TYPE A MESSAGE 


09 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 


006026 


001234 


005736 
000004 


001236 
000004 


SATY4: 
SATYC: 


SMFLG: 
$LFLG: 


SFFLG: 


SATY 
#1, $FFLG 


RO,-(SP) 
R1,-(SP) 
S$MFLG 


5$ 
#APTENV,SENV 


$ 
lettermen 


a4(SP) RO 
#2,4(SP) 
—s 
RO, $MSGAD 
(RO) + 

2s 

$SMSGAD ,RO 
RO 


RO, $MSGLGT 
#4, SMSGTYPE 


¢ 
a4 (SP) .4$ 
#2,4(SP) 
177776,-(SP) 
PC, $TYPE 

0 

$FFLG 

12$ 

SENV 

12$ 

$MSGTYPE 

11$ 

a4 (SP) ,SFATAL 
#2,4(SP) 
$MSGTYPE 
$FFLG 

$LFLG 

$MFLG 
(SP)+,R1 
(SP)+,RO 

PC 

0 


0 
0 


3:TO ONLY REPORT FATAL ERROR 


+ ¢PUSH RO ON STACK 

PUSH R1_ON STACK 
7:SHOULD TYPE A MESSAGE? 
:71F NOT: BR 
: [OPERATING UNDER APT? 


: SHOULD Ray MESSAGES? 


S2GET NRE SAGE ADDR. 

;;BUMP RETURN ADDR. 
Mes IF DONE W/ LAST XMISSION? 
szIF NOT: WAIT 
73PUT ADDR IN MAILBOX 
3zF IND END OF MESSAGE 


;2SUB START OF MESSAGE 

3:GET MESSAGE LNGTH IN WORDS 
7zPUT LENGTH IN MAILBOX 
::TELL APT TO TAKE MSG. 


:zPUT MSG ADDR IN JSR LINKAGE 
“BUMP RETURN ADDRESS 
PUSH 199776 ON STACK 
ST CALL TYPF MACRO 


“yf oe FATAL ERROR? 
aoe eae UNDER APT? 


suf BR 
: FINISHED LAST MESSAGE? 
NOT: WAIT 
GET ERROR a 
;BUMP RETURN ADDR. 

2c TELt abt TO TAKE ERROR 

;CLEAR FATAL FLAG 
3:CLEAR LOG FLAG 
a MESSAGE FLAG 

POP STACK INTO R1 

: POP STACK INTO RO 


RETURN 
:IMESSG. FLAG 
::LOG FLAG 
T:FATAL FLAG 


APTCSUP=040 
STRING INPUT ROUTINE 





SEQ 0048 
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S11 Ya ee 
2142 006030 010346 INSTR: MOV R3,-(SP) ;SAVE R3 ON STACK 
2143 006032 010446 MOV R4,-(SP) SAVE _R4& ON STACK 
2144 006034 017637 000004 006052 MOV a4(SP),.MSG :GET THE ADDRESS OF THE MESSAGE TO BE PRINTED 
2145 006042 2766 000002 000004 ADD #2,4(SP) :POINT TO_ INSTRUCTION AFTER ADDRESS POINTER 
2146 006050 104402 -INST1: TYPE PRINT THE MESSAGE 
2147 006052 MSG: 0O MESSAGE IS POINTED TO FROM HERE 
2148 006054 012704 010620 MOV MINBUF ,R4 ;POINT R4 TO THE INPUT BUFFER 
2149 006040 012703 000007 MOV #7 ,R3 SET THE MAXIMUM NUMBER OF CHARACTERS ALLOWED 
2150 0060¢’ 105777 173074 1$: TSTB a$TKS HAS A CHARACTER BEEN on 
2151 006070 100375 L 1$ :1F NO, KEEP WAIT FOR 
2152 006072 117714 173070 VB @$TKB, (R4) :IF YES, SAVE IT IN THE INPUT BUFFER 
2153 006076 142714 000200 BICB #200, (R4) KEEP ONLY THE 7-BIT ASCII INFORMATION 
2154 006102 122427 000015 CMPB (R4)+,#15 31S THIS CHARACTER A LINE 
2155 0061 001417 BEQ INSTR2 IF SO, TERMINATE THE INPUT SEQUENCE 
156 006110 105777 173054 2$: TSTB a$TPS SIF NOT, CHECK TO SEE IF THE CHARACTER CAN PRINT 
2157 006114 100375 BPL 2$ IF WE CAN'T, WAIT UNTIL WE CAN 
2158 006116 017777 173044 173046 MOV @$TKB,a$TPB ECHO THE CHARACTER > 
2159 006124 005303 DEC R3 REDUCE THE F CHARACTERS RECEIVED 
160 006126 001356 BNE :1F WE DON'T _HAVE RS GO GET SOME MORE 
2161 006130 012604 MOV (SP)+,R4 SIF WE HAVE 7, RESTORE R4 
2162 006132 012603 MOV (SP)+,R3 ;RESTORE R3 
2163 0061 10346 - INSTE: MOV R3,-(SP) ;SAVE R3 ON THE ate 
2164 006136 010446 MOV R4,-(SP) ;SAVE_R4 ON THE STACK 
2165 006140 104402 001230 TYPE ,SQUES SPRINT A QUESTION MARK... WHAT'S GOING ON? 
2166 006144 741 BR - INST1 :GO PRINT THE MESSAGE AGAIN 
2167 006146 012604 INSTR2: MOV (SP) +,R4 TRESTORE R4 
2168 006150 012603 MOV (SP)+,R3 RESTORE R3 
4h 4 006152 RT] RETURN TO THE MAIN PROCEDURE 
2171 ; CONVERT ASCII STRING TO OCTAL 
5173 ean. sateen et 
2174 006154 010546 -PARAM: MOV R5,-(SP) SAVE R5 ON THE STACK 
2175 006156 010446 MOV R4,-(SP) SAVE _R4& ON THE STACK 
2176 0061 16605 000 MOV 4(SP).R5 :GET THE SETUP INFORMATION POINTER 
2177 006164 012537 006344 MOV (R5)+,LOLIM ;SET THE LOW LIMIT FOR THE INPUT 
2178 006170 012537 006346 MOV (R5)+,HILIM >SET THE HIGH LIMIT FOR THE INPUT 
2179 006174 012537 006350 MOV (R5)+,DEVADR SSAVE THE ADDRESS WHERE THE RESULT WILL BE STORED 
2180 112537 006352 MOVB (R5)+,LOBITS :GET THE MASK OF THE INCORRECT BITS 
2181 006204 °°37 006353 MOVB (R5)+,ADRCNT GET Pe COUNT OF ITEMS TO BE STORED 
2182 006210 010566 MOV R5,4(SP) TO WHERE MAIN LINE PROGRAM WILL RESUME 
2183 006214 5005 PARAM1: CLR 5 ‘INITIALIZE THE ASCII TO OCTAL RESULT WORD 
2184 006216 012704 Oivecd MOV #INBUF ,R4 ;POINT TO THE INPUT E 
2185 006222 122714 15 CMPB #15, (R4) 71S THIS CHARACTER A CARRIAGE RETURN? 
2186 006226 001420 BEQ ERR :1F SO, PRINT THE e?or N 
2187 006230 121427 000060 1$: C (R4) ,#60 71S THIS CHARACTER THE oa RANGE ? 
2188 006234 2415 BLT ERR IF SO, GO PRINT THE MES IN 
2189 006236 121427 009067 C (R4) ,#67 :1S THIS CHARACTER ABOVE THE MERIC RANGE ? 
2190 006242 3012 BGT ARERR SIF SO, GO PRINT THE ty &. GAIN 
2191 006244 142714 000060 BICB #60, (R4) ISOLATE THE NUMBER THE CHARACTER REPRESENT 
2192 006250 152405 BISB (R45+,R5 :CONCATENATE THESE BITS TO THE ALREADY EXISTING STRING 
2193 006252 122714 000075 CMPB #15, (R4) 31S THE NEXT CHARACTER A CARRIAGE RETURN? 
2194 006256 0014 BEQ LIMITS :I1F SO, GO SEE IF NUMBER IS WITHIN LIMITS 
2195 006260 006305 ASL R5 :CLEAR BIT POSITION 0, MOVE EXISTING STRING TO LEFT 
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2196 006262 006305 ASL R5 sCLEAR POSITION 1, MOVE STRING TO LEFT AGAIN 
2197 006264 006305 ASL R5 MOVE THE STRING ONE MORE TIME TO MAKE ROOM FOR 
2198 =NEXT THREE BITS 
2199 0062 000760 BR 3GO GET THE NEXT CHARACTER 
2200 006270 104404 PARERR: INSTER THERE WAS AN ERROR... GO PRINT MESSAGE AGAIN 
300) 006272 000750 BR ‘TRY GETTING THE PARAMETERS AGAIN 
ait TEST TO SEE IF NUMBER IS WITHIN LIMITS 
2205 
2206 006274 020537 006346 LIMITS: CMP R5,HILIM DOES RESULT EXCEED ITS MAXIMUM CORRECT VALUE? 
2207 006 101373 BHI PARERR z1F YES, GO PRINT THE MESSAGE AGAIN 
2208 006302 020537 006344 CMP R5,LOLIM t1S THE RESULT LOWER THAN ALLOWED? 
2209 006 103770 BLO PARERR ‘IF YES, GO PRINT THE MESSAGE AGAIN 
2210 006310 133705 006352 BITB LOBITS,R5 TARE ANY INCORRECT BITS SET IN THE RESULT? 
rath 006314 1365 E PARERR :1F SO, GO PRINT THE MESSAGE AGAIN 
$s\7 STORE NUMBER AT SPECIFIED ADDRESS 
2215 006316 013704 006350 MOV DEVADR,R4 POINT TO THE LOCATION WHERE THE RESULT WILL BE STORED 
2216 006322 010524 1$: MOV R5,(R4)+ sSTORE THE RESULT 
2217 006324 062705 000002 ADD #2,R5 :CALCULATE THE NEXT DATUM 
2218 006330 105337 006353 DECB ADRCNT REDUCE COUNT OF STORED RESULTS. IS IT EXCEEDED? 
2219 006334 001372 BNE 1 ;IF NOT, GO STORE THE NEXT DATUM 
22 006336 2604 MOV (SP) +,R4 TRESTORE R4 
2221 006340 012605 MOV (SP)+,R5 sRESTORE RS 
o2c8 006342 RTI [RETURN TO THE MAIN PROGRAM 
2224 006344 000000 LOLIM: O LOWEST ACCEPTABLE VALUE 
2225 006346 000000 HILIM: 0 HIGHEST ACCEPTABLE 
2226 006350 000000 DEVADR: LOCATION WHERE RESULT WILL BE STORED 
2227 006352 000 LOBITS: .BYTE 0 7 INCORRECT BITS 
soc8 006353 000 ADRCNT: .BYTE 0 :COUNT OF ITEMS TO BE STORED 
2230 ena PC OF TEST THAT FAILFD AND RO-RS 
EO oe apo alltere, Hallet, ape agama ass ane garter ramen 
$Siz 006354 016637 000004 001402 .SAVOS: MOV 4(SP) , SAVPC sSAVE R7 (PC) 
Siz SAVE RO-R5 
2237 006362 010537 001214 sv05: MOV R5,$REGS5 ZSAVE R5 
22 006 010437 001212 MOV R4,$REG4 + SAVE R4 
2239 006372 010337 001210 MOV R3,$REG3 ZSAVE R3 
2240 006376 010237 001206 MOV R2,$REG2 :SAVE R2 
2241 006402 010137 001204 MOV R1,$REG1 SAVE R1 
2242 006406 010037 001202 MOV RO. $REGO : SAVE RO 
2243 006412 RTI ;LEAVE. 
2244 
ez sRESTORE RO-R5 
2247 006414 013700 001202 -RESOS: MOV $REGO,RO ;RESTORE RO 
2248 006420 013701 001204 MOV $REG1,R1 sRESTORE R1 
2249 006424 013702 001206 MOV $REG2,R2 sRESTORE R2 
2250 006430 013703 001210 MOV SREG3,R3 sRESTORE R3 
2251 006434 013704 001212 MOV $REG4 ,R4 sRESTORE R4 
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2252 00644C 013705 001214 MOV SREGS RS sRESTORE RS 
$637 006444 000002 RTI LEAVE 
ssn CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
2257 
2258 006446 104402 001231 .CONVR: TYPE ,$CRLF PRINT A CARRIAGE RETURN 
2259 006452 010046 .CNVRT: MOV RO,-(SP) :SAVE RO 
2260 006454 010146 MOV R1,-(SP) SAVE R1 
2261 006456 01034 MOV R3,-(SP) SAVE R3 
22 006460 01 MOV R4,-(SP) SAVE R4 
2263 006462 010546 MOV R5,-(SP) SAVE RS 
2264 006464 017 000012 MOV @12(SP) ,R1 PLACE THE ADDRESS OF THE ARGUMENTS IN R1 
2265 006470 062766 000002 000012 ADD #2,12(SP) [POINT TO WHERE MAIN PROGRAM WILL RESUME 
2 006476 012137 006622 MOV (R1)+,WRDCNT GET NUMBER OF WORDS TO BE PRINTED 
2267 006502 112105 1$: MOVB (R1)+,R5 :GET THE NUMBER OF CHARACTERS TO BE PRINTED 
2268 006504 112100 MOVB (R1)+,RO GET THE NUMBER OF SPACES TO PRINT 
2269 006506 013104 MOV a(R1)+,R4 ;COPY THE WORD TO BE CONVERTED 
2270 006510 110537 006624 MOVB RS, CHRCNT :COPY THE CHARACTER COUNT 
2271 006514 010403 3s: MOV R4,R3 :COPY THE ARGUMENT WORD AGAIN 
2272 006516 042703 177770 BIC #*°C<7>,R3 : ISOLATE THREE BITS TO BE TREATED AS A CHARACTER 
2273 006522 062703 000060 ADD #060,R [MAKE AN ASCII CHARACTER OUT OF THEM 
2274 006526 110346 MOVB R3,-(SP) SAVE THAT CHARACTER 
2275 006530 006004 ROR R4 [MOVE THE NEXT THREE BITS INTO PLACE 
2276 006532 006204 ASR R4 s;MOVE THEM AGAIN 
2277 006534 006204 ASR R4 ;AND FINALLY A THIRD TIME 
oo78 006536 005305 DEC RS :REDUCE CHARACTER COUNT.ARE ALL CHARACTERS 
2280 006540 001365 BNE 3$ 71F NO, GO BUILD THE NEXT ONE. 
2281 006542 012703 010724 MOV AMDATA,R3 [NOW POINT TO WHERE NUMBER WILL BE PRINTED FROM 
2282 006546 112623 4$: MOVB (SP)+,(R3)+ STORE THE CHARACTER, STARTING WITH THE MOST 
2283 006550 105337 006624 DECB CHRCNT [REDUCE COUNT. ARE ALL CHARACTERS TRANSFERRED? 
2284 006554 001374 BNE 4$ :IF NO, GO TRANSFER ANOTHER 
2285 006556 105700 TSTB RO TARE ANY SPACES TO BE PRINTED? 
2286 006560 001404 BEQ 6$ 1 NO. DON'T SET UP ANY 
2287 006562 112723 000040 S$: MOVB #040, (R3)+ ZADD A SPACE TO THE OUTPUT BUFFER 
2288 006566 105300 DECB RO ;REDUCE THE COUNT. SHOULD WE PRINT MORE? 
2289 006570 001374 BNE 5$ TIF YES, GO ADD ANOTHER SPACE 
2290 006572 105013 6$: CLRB (R3) TERMINATE THE OUTPUT BUFFER WITH A ZERO 
2291 006574 104402 010724 TYPE »MDATA [PRINT THE STRING We JUST BUILT 
2292 006600 005337 006622 DEC WRDCNT REDUCE THE WORD COUNT. ARE ANY MORE WORDS LEFT? 
2293 006604 001336 BNE 1$ IF YES, GO CONVERT THEM 
2296 012605 MOV (SP)+,R5 SRESTORE R5 
2295 006610 01 MOV (SP) +,R4 sRESTORE R4 
006612 012603 MOV (SP)+,R3 sRESTORE R3 
2297 006614 012601 MOV (SP)+,R1 RESTORE R1 
2298 006616 012600 MOV (SP)+,RO mst S RO 
2299 006620 000002 RTI RETURN TO THE MAIN PROGRAM 
2300 006622 000000 WRDCNT: 0 
2301 006624 000 CHRCNT: .BYTE NUMBER OF CHARACTERS TO PRINT 
gone 006625 000 SPACNT: .BYTE 0 NUMBER OF SPACES TO PRINT 
2304 006626 000000 BINWRD: 0 
2305 
2306 


2307 ; TRAP DISPATCH SERVICE 


CZDZA 
CZDZAF . 


-FO 
P14 


MACY11 oe 
1:03 


26-NOV-79 


032777 
601374 
000002 


013716 
005037 
000002 


000002 
002002 


000020 
000020 


001417 


006722 


001360 
001362 


007360 
010000 


172212 


000207 
020000 


001136 
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T COMMUNICATIONS ROUTINE 


ARGUMENT OF TRAP IS EXTRACTED 
;AND USED AS OFFSET TO OBTAIN POINTER 


;TO SELECTED SUBROUTINE 


. TRPSR: MOV 
MOV 
TST 
MOVB 
ASL 
MOV 
RTS 


RO,-(SP) 
Fie 


-(R 

(RO) ,RO 

RO 

. TRPTAB(RO) ,RO 
RO 


DEVICE CLEAR ROUTINE 
ISSUE A DEVICE CLEAR 


.DEVICE.CLR: 


173162 BIS 
173154 1$: BIT 
BNE 
RTI 


#DCLR,@DZCSR 
ae 


ot ne RO. yo feats TO FIND TRAP ROUTINE 


:GET TRAP 

GET RIGHT BYTE OF TRAP(TRAP OFFSET) 
:POSITION OFFSET FOR TABLE INDEXING 

;PLACE INDEXED ADDRESS OF TABLE IN RO 

; TRANSFER TO THAT ADDRESS AND RESTORE OLD RO 


SET DCLR 
:DID IT CLEAR? 


:BR IF NO 
sEXIT ROUTINE 


ROUTINE TO HANDLE MAINTENANCE BIT SETTING WITH DEVICE CLEAR 


.DCLASM:DEVICE.CLR 
BISB 


: ISSUE _A DEVICE CLEAR 
: LOAD THE MAINTENANCE BIT IF IT IS I MODE 
;RETURN TO CALLING ROUTINE 


SAVE RO 
SET COUNT 
:DELAY 


SRESTORE RO 
sLEAVE ROUTINE 
;PATCHABLE LOC FOR MORE TIME 


CRUNCH STACK WITH ADDRESS OF SCOPE CALL 
RESET TIGHT LOOP ADDRESS 
:CHECK TO SEE IF OLD TEST GETS REPEATED 


FIND OUT IF gs WAS HIT 


R 

:DON'T WAIT IF TTY NOT READY. 

[PUSH A BELL AT THE TTY 

: DELETE one PRINT OUT? 
PRINT OUT WANTED. 


173140 MNTFLG,a@DZCSR 
-DELAY: 
MOV RO,-(SP) 
MOV DLYCNT,RO 
1$: DEC RO 
BNE 1$ 
MOV (SP)+,RO 
RTI 
DLYCNT: .WORD 1 
sADVANCE TO NEXT TEST HANDLER 
.ADVANCE:MOV —sCNEXT,, (SP) 
CLR LOCK 
RTI 
ZERROR HANDLFR 
SERROR: JSR PC, SERV.G 
172210 BIT #SW12,aSWR 
BEQ XBX 
{S78 asTPs 
172204 MOVB 4207 asTPB 
172164 XBX: BIT #SW13,aSWR 
BNE HALTS 
CMP (SP) , S$ERRPC 
BEG 1$ 


BR IF NO 
a oe FOUND LAST TIME? 


SEQ 0051 
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011637 (SP) , SERRPC RECORD BEING HERE 
SERFLG [PREPARE HEADER 
save ALL Ay REGISTERS 
C OF ERROR 


a” SI TEMB 
(R5) .R4 


R4 
#177001 ,R4 
#.ERRTAB,RS POINTE 
(R4)+,ERRMSG -GET ERROR MESSAGE 
(R4)+,DATAHD | ;GET an HEADRER 
(R4) ,DATABP [GET DATA TABLE 

7 TYPE HEADER 


BR IF YES 
:DOES DATA TABLE EXIST? 
:BR IF YES. 


: TYPE A CARRIAGE RETURN 
AND TYPE ANOTHER 


;SHOW IT 
sTYPE PC. 
;SHOW IT 


-SCRLF GIVE A _CR/LF 

#-1,SERFLG ;NO MORE HEADER UNLESS NO DATA TABLE. 
ERRMSG :1S THERE AN ERROR MESSAGE? 

WTBS.FM BR IF NO. 


YPE 
ERRMSG: 3 ERROR MESSAGE 


WTBS.FM: : 
T DATAHD SDATA —_ 
TYPDAT 7 | dos 
DATAHD: 0 5 DATA HEADER 
TYPDAT: DATABP [DATA TABLE? 
RESREG ‘BR IF NO. 
; SHOW 


DATABP: . : DATA TABLE 
RESREG: RESTORE PROC REGISTERS 
HALTS: CMPB MAPTENV ,SENV 1S APT RUNNING? 
2s SKIP APT CALL IF NOT 
SITEMB,7$ :COPY ERROR NUMBER 
PC ,SATY4 SCALL_APT SERVICE 
0 [ERROR NUMBER STUCK HERE 
8$ LOCK UP HERE 
AHSENDAD ,a#42 CHECK TO SEE IF IN ACT-11 MODE 
1$ :1F SO, HANDLE ACCORDINGLY 
171672 aSWR HALT ON ERROR? 
EXITER ;BR IF NO HALT ON ERROR 
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016677 


aie 
32777 


122726 


007642 
171512 
171506 
000200 
000015 
171462 
171466 
177776 


171440 


177776 
177776 


177770 
177776 
171372 


171366 
000200 
000015 


171550 


007640 
171526 


000060 
000067 


177776 
171372 


1$: 


HAL 
EXITER: i 


8 5 
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2(SP) ,@DISPLAY song | ERROR PC IN DATA DISPLAY 


SERTTL ‘UPDAT E ERROR COUNT 
#SWO8 ,aSWR :GOTO TOP OF TEST? 


1 BR IF YES 

- aeeeeee fd a TEST? 
NEXT ,SLPADR 3SET FOR NEXT TEST 
STACK , SP ;RESET SP 

@$LPADR : GOTO, SPECIFIED TEST 


6.2 


2.2 

#177570,SWR 71S THE SWITCH a HARDWIRED? 

6$ ;1F SO, IGNORE * 

@STKB,-‘SP) OTHERWISE, GET THE LAST CHARACTER TYPED 


#B1T7, (SP) [STRIP PARITY(EIGHTH) BiT 
#7, (SP)+ :1S IT *G? 


; SAVE (SWR). 


‘WAIT FOR DONE. 
aSTkB,-(SP) 
#B1T7. (SP) 
#15, (SP)+ 
5$ 
aSwR 
as1Ps 
~2(SP) ,a$TPB 


~ athe #67 
#*C<7>,-2(SP) 


#15, (5P)+ 
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7 *010012 
000340 


171256 
010016 
007720 


007646 
000340 


051127 


052) 
703 


aftanay 11:06 PAGE 55 
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BNE 2$ 

5$: TYPE SCRLF 

6S: RTS PC 

051127 89%: «ASCIZ <200>? (SWR)=/? 

EVEN 

88$: 1 
-BYTE 6,0 
90$ 

90$: WORD 0 

"ava eASCIZ ?/=/? 


000024 
000026 


000024 


000024 


000024 
000026 


043040 


-EVEN 
-SBTTL POWER DOWN AND UP ROUTINES 


J AAAAAAAAAAAAAAAAAAREARAAEEAARARAAAAAARERARAAERARAREARAERRERE RHEE 


POWER DOWN ROUTINE 
SPWRDN: MOV 


#SILLUP ,@#PWRVEC ;;SET FOR FAST UP 


4340 ,@#PWRVEC+2 ;;PRIO:7 

RO,-(SP) sé RO ON STACK 
R1,-(SP) 7 7PUSH R1 ON STACK 
R2,-(SP) 7 PUSH R2 ON STACK 
R3,-(SP) sé R3 ON STACK 
R4,-(SP) 7 ZPUSH R4 ON STACK 
R5,-(SP) 73PUSH RS ON STACK 
@SWR,- (SP) 2 ¢PUSH @SWR ON STACK 
SP, SSAVR6 VE SP 

#SPWRUP , aePWRVEC +: SET UP VECTOR 
72 7 HANG UP 


FEAR AEAAREAAEAEEREAAEEEARERERAERARREREEAEERAERAAREREEEEAREE ERE 


“POWER UP ROUTINE 


SPWRUP : 


1$: 


SSAVRG6: 
MPFAIL: 


V 


#SILLUP, ees tgSeT FOR FAST DOWN 


SSAVR6,S sGET SP 

SSAVR6 *tWAIT LOOP FOR THE TTY 
SSAVR6 szWAIT FOR THE INC 

1$ :70F WOR 

(SP) +, aSWR 73POP STACK INTO @SwWR 
(SP)+,R5 :z;POP STACK INTO RS 
(SP) +,R& ::POP STACK INTO R4 
(SP)+,R3 77POP STACK INTO R3 
(SP)+,R2 32zPOP STACK INTO R2 
(SP)+,R1 33POP STACK INTO R1 
(SP)+,RO :zPOP STACK INTO RO 
#SPWRDN , AAPWRVE C at 4 UP THE POWER DOWN VECTOR 
#340, asPWRVEC+2 72PRIO:7 


; EREPORT - THE POWER FAILURE 


MPF AIL 2 sPOWER FAIL coe POINTER 
(PC) +, (SP) TZRESTART AT RESTAR 
RESTART S IRESTART ADDRESS 
32 THE POWER UP SEQUENCE WAS STARTED 


4 :;_BEFORE THE POWER DOWN WAS COMPLETE 


7zPUT THE SP HERE 
-ASCIZ <200>/PWR FAILED. RESTART AT LAST TEST / 


SEQ 0054 
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MEPASS: .ASCIZ <200>/END PASS ~— / 
MR: ASCIZ 00>/ pmo pe 


<2 
00>/PROGRAM INDICATES by DEVICES PRESENT./ 
<200>/ INSUFFICIENT DAT 
<200>/LOCK ON SELECTED tEST/ 
<oCSR: / 
/VEC: / 
/PASSES: / 
ZERRORS: / 
/TEST NO: / 


/s / 
> > eae SWITCH REG TO DZ11°S DESIRED ACTIVE./ 


<200>/MAP OF DZ11_ STATUS/<200> 
<200>/ILLEGAL ENTRY IN STAGGERED MODE/<200> 


oO ooooo 

AAR ARAKARRER 
NMS 
— = 
MMRNMON——for 
WRWWNS NU 


& 
Aoumn 
~~ 
=-Oorn 
—30W 


- EVEN 
XSTATQ: 2 


g 


6.3 
6.2 


g 


:E=EXTERNAL LOOP BACK 
;1=INTERNAL LOOP BACK 
:S=STAGGERED LOOP BACK 
ssgehmales t a(SP) ,R5 UP + os ig TAG 


#40, INBUF P LOWER 
nee T EXTERNAL LOOP BACK ? 


1$, (R5) 
MNTFLG 


7$ 
#1, INBUF 
5$ 


28, (R5) INF 
WMAINT -MNTFLG SET UP_THE MAINTENANCE FLAG LOADER 


:GET OUT 

sal STAGGERED LOOP BACK ? 
:YES A INFO 

ZERO BITS 


-SETFLG 
a“ 
100000 STAGGERED = 


BUFFERS FOR INPUT-OUTPUT 
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010724 =, +40 
010724 000000 MDATA: 0 
010766 =, +40 


011637 SET.PS: MOV (SP) ,3$ 
162737 000002 SUB #2,3$ 


a3$,4$ 
cee ae 
_ 
#106437 ,4$ 
.*4 


RESERVED INSTRUCTION NOT ‘MTPS*' 
(SP), 3$ 
a3$, 3$ 
#2, (SP) 
a3$,2(SP) 
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2592 
2593 ; 
2594 : ROUT INE USED TO ‘CYCLE’ THROUGH UP TO SIXTEEN DZ11'S 
2595 THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
2596 :AND RUNS THE SPECIFIED 0211'S. | THIS ROUTINE *MUST®* 
2597 ;BE RUN FIRST — ENTERING THE DIAGNOSTIC FOR THE 
2598 ; SETUP NECESSARY 
3600 
2601 011070 005737 001404 CYCLE: TST DZACTV zARE ANY DZ11'°S TO BE TESTED? 
2602 011074 001004 BNE 1$ :BR IF OK. 
2603 011076 104402 010122 TYPE »MERR2 NO DZ11°S SELECTev:' 
2604 011102 000000 HALT STOP THE SHOW. 
2605 011104 000776 BR ~e SDISQUALIFY CONT. SW. 
2606 011106 013737 005234 001226 1$: MOV SMXCNT ,STIMES ; RESTORE THE NUMBER OF ITERATIONS TO MAKE 
2607 011114 033737 001406 001404 Bli RUN ,DZACTV IS THIS ONE meh, VE'’ 
2608 011122 001020 BNE 2$ ‘BR IF GOOD ONE F 
2609 011124 000241 CLC 
2610 011126 006137 001406 ROL RUN UPDATE POINTER 
2611 011132 005537 001406 ADC RUN CATCH CARRY FROM RUN 
2612 011136 062737 000014 001412 ADD #14, ACTIVE UPDATE ADDRESS POINTER. 
2613 011144 022737 002000 001412 CMP #DZ-END ACTIVE oe WE PASSED THE END OF THE MAP 
2614 011152 001355 BNE 1$ ;IF NO, KEEP GOING; NOT ALL TESTED "FOR. 
2615 011154 012737 001500 001412 MOV #DZ.MAP,ACTIVE :RESET ADDRESS POINTER 
2616 011162 000751 BR 1$ :KEEP LOOKING FOR ACTIVE D211 
2617 011164 000241 2s: CLC 
2618 011166 006137 001406 ROL RUN : UPDATE POINTER. 
2619 011172 005537 001406 ADC RUN ; CATCH CARRY. 
2620 011176 013700 001412 MOV ACTIVE ,RO [GET ADDRESS POINTER. 
2621 011202 062737 000014 001412 ADD #14, ACTIVE UPDATE. 
2622 011210 022737 002000 001412 CMP #DZ.END,ACTIVE 
2623 sALL DONE? 
2624 011216 001003 BNE 3$ :BR IF NO. 
2625 011220 012737 001500 001412 MOV #DZ.MAP,ACTIVE ;RESTORE POINTER. 
2626 011226 012037 001310 3$: MOV (RO) +, $BASE ;LOAD SYSTEM CTRL. REG 
2627 011232 012037 002072 MOV (RO)+,DZRIV ;LOAD VECTOR 
2628 011236 012037 027060 MOV (RO) +,DZPRT ;LOAD PRIORITY 
2629 011242 113737 027061 001414 MOVB DZPRT+1,EIAFLG EIA , 20MA 
2630 011250 042737 100000 027060 BIC #81715 ,0ZPRT CLEAR FLAG 
2631 011256 012037 001364 MOV (RO)+,LINE :SET UP LINE DZ LINES ACTIVE 
2632 011262 012037 001366 MOV (RO) +,PAR SET UP PARAMETERIZATION 
2633 011266 012037 001370 MOV (RO) + ,MODE >SET UP MAINTENANCE MODE 
2634 011272 737 026652 JSR PC,DZLEV 3SET UP 
2635 011276 005737 000042 TST a#42 zARE WE UNDER MONITOR CONTROL? 
2636 011302 001051 BNE 4$ 4 YES, SKIP THIS SETUP 
2637 011304 032777 000002 167646 BIT #SWO1 ,aSWR SIF SWO1=1, GET STARTING TEST # 
2638 011312 001445 BEQ 4$ ‘BR IF NO TEST IS TO BE INPUTTED 
2639 011314 104402 001231 7$: TYPE - SCRLF 
2640 011320 104403 INSTR :CALL_THE STRING INPUT ROUTINE 
2641 011322 010302 MTSTN [POINTER TO MESSAGE TO BE PRINTED 
2642 011324 104405 PARAM CALL _THE OCTAL TO ASCII CONVERT ROUTINE 
2643 011326 000001 1 SLOWEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
2644 011330 001000 1000 sHIGHEST LEGITIMATE VALUE OF EXPECTED RESPONSE 
2645 011332 001122 STSTNM ;POINTER TO MAP LOCATION TO BE FILLED 
2646 011334 . 000 -BYTE 0 :MASK OF INVALID BITS FOR THIS PARAMETER 
2647 011335 001 mvTe 1 [NUMBER OF PARAMETERS TO STORE 
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2648 011336 012700 012374 MOV #TST1,RO 

2649 011342 022710 000004 S$: CMP #4, (RO) 

2650 011346 001020 BNE 4 

2651 011350 022760 012737 000002 CMP #12737,2(RO) 

2652 011356 BNE 6$ 

2653 011360 023760 001122 000004 CMP STSTNM,4(RO) :1S THIS THE TEST ? 

2654 011366 001010 BNE 6$ + IF NOT, DON'T PROCESS NUMBER 
2655 011370 010037 001126 MOV RO, $LPADR “SAVE PC 

2656 011374 062737 000002 001126 ADD #2, $LPADR ‘POP OVER SCOPE 

2657 011402 104402 001231 TYPE $CRLF 

2658 011406 000412 BR Be 

2659 011410 005720 6S: TST (RO) + 

2660 011412 020027 023002 CMP RO, #TLAST+10 

2661 011416 001351 BNE 5$ 

2662 011420 104402 001230 TYPE $QUES 

2663 011424 000733 BR 7$ 

fre! Rieke 012737 012374 001126 ot MOV #TST1,$LPADR PREPARE TEST ADDRESS 

2666 011434 000177 167466 RESTART: JMP @$LPADR GO START TESTING. ***WARNING! «*** 
2667 : THIS JUMP IS USED BY POWER UP ROUTINE!!!! 
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:~ROUTINE USED TO SET UP THE DIAGNOSTIC VIA APT. 
; IF BIT? IN THE ENVIRONMENT MODE (SENVM) BYTE IS SET, 
THE PROGRAM WILL LOAD ITS PARAMETERS FROM THE ETABLE. 


#07.MAP,RO :POINT TO THE DEVICE MAP TABLE 
$BASE ,Ri [BUILD DEVICE ADDRESSES IN R1 
SVECTI,R2 [BUILD DEVICE VECTORS IN R2 

#*C<770>,R2 SSTRIP AWAY OTHER INFORMATION 


$VECT1+1,R3 ;LOAD THE INTERRUPT PRIORITY FROM R3 
R3 NUMBER 
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011440 


3AL HE NUMBER 

REMOVE ALL BUT BUS LEVEL NUMBER 

:POINT TO THE BEGINNING OF DEVICE PARAMETERS 
:GET THE MAP OF ACTIVE DEVICES 


3 SAV’ .. THE BIT MAP 

SGET A DEVICE SELECTION BIT 

SIF IT IS SELECTED, GO SET UP A 

:1F NO MORE ARE SELECTED, GET OUT 0 OF SETUP 
sPOINT TO NEXT apt ht DESCRIPTOR 

:SET UP THE NEXT ADDRESS 

SET UP THE NEXT VECTOR GROUP 

:GO SEE IF MORE wae REMAIN 


$CDW1, (RO) + 
(R4)+,(RO)+ 


17777. 
177776 


7 
001256 001160 


4$ 
#100000 ,-6(RO) 
#100000 ,-2(RO) 
- 


2 
#-1, (RO) 


V TER Ss 
F 20MA MODE SELECTED, SET IT UP 
iSeT THE 20MA FLAG IN b+ a 

:CLEAR THE FLAG IN DZPARN 

;DEFAULT OPERATION TO 2 eat MAINTENANCE MODE 


ICE MAP 
SSET TO SOFTWARE APT SWITCH REGISTER 


ASSWREG, SWR 
PC RETURN JO PRINT STATUS TABLE 


3 *ROUTINE USED TO ‘‘AUTO SIZE*' THE D211 
:*CSR AND VECT + 

:*NOTE: THE CSR MAY BE ANY WHERE_IN THE FLOATING 
se ADDR coe RANGE (160000:163700) 

ie AND THE VECTOR MAY BE ANY wee IN THE 
had FLOATING VECTOR RANGE (300:770) 
-* 


AUTO. SIZE: 
s*RESET z INSURE A_BUS INIT 
INIFLG ; SHOW THAT I WAS HERE 


CSRMAP : LOAD MAP POINTER 
MO ‘BOINT TO Age DEVICE DESCRIPTOR WORDS 
1$: (R2)+ iy ENTIRE MAP 
#D2.END,R2 L DONE? 


001415 
001500 
001320 


005022 
022702 002000 
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001410 
001500 
160000 
012174 
000040 
000200 


000005 
177400 
177400 


100000 
000377 
017470 


177777 
001410 
000020 


000010 
163700 
001410 


001410 
001411 
000001 


26-NOV-79 
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000004 
000004 


000004 


000004 
000004 


177776 


001410 


001404 


2s: 


7$: 


8$: 


;BR IF NO 
;SET OCTAL NUMBER OF DZ11°S TO 0 


SET FOR FIRST ADDRESS TO BE TESTED 
SET FOR NON-EXISTENT DEVICE TIME OUT 
TRY TO SET MASTER SCAN ENABLE 
;TRY TO TRANSMIT ON LINE 7 
:USE RO AS A_COUNTER 

S TRANSMITTER READY COME UP? 


11 
HIS LINE 7 ENABLE STILL SET? IT SHOULD BE 
:IF IT'S NOT, ASSUME IT'S NOT A D211 
:1S MASTER SCAN ENABLE STILL SET? 
:I1F NOT, ASSUME IT'S NOT A D211 


SET DEVICE CLEAR 

;SHOULD STAY SET FOR A WHILE IF DZ 
;BR IF NOT D211 

:WAIT FOR BIT TO CLEAR 

BR WHEN CLEARED 


;BIT NOT CLEARED! MUST NOT BE D211 
;GET RID OF MASTER SCAN ENABLE 
RID OF LINE 7 ENABLE 


CLR 4(R1) 3GET 
;AT ged aaa ee —- THAT R1 HOLDS A DZ11 CSR ADDRESS. 


9$: 


3$: 


100$: 


4$: 
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1$ 

CLRB DZNUM 
MOV #D7.MAP,R2 
MOV #160000, R1 
MOV ans 
BIS wits (R1) 
BIS #B1T7.4(R1) 
CLR RO 
TST (R1) 
BMI 8$ 
DEC RO 
BNE 7$ 
BR 3$ 
BIT #B1T7,4(R1) 
BEQ 2g 
BIT WRITS, (R1) 
BEQ 3$ 
CLR RO 
BIS #20, (R1) 
BIT #20, (R1) 
BEQ + 
BIT #20, (R1) 
BEQ +12 
DELAY 
INC RO 
BNE .-12 
BR 3$ 
CLR (R1) 
TST (Re) + 
MOV as + 
BIS #179000, 4(RT) 
BIT #177400.4(R1) 
BNE 9$ 
BIS #B1T15,-2(R2) 
MOV #377, (R2)+ 
MOV #17470, (R2) 
MOV (R2)+, (R3) + 
CLR (R2)+ 
MOV #-1, (R2) 
INCB ~~ DZNUM 
CMPB ss #20, DZNUM 
BEQ 100$ 
ADD #10,R1 
CMP #163700,R1 
BNE 2$ 
TSTB = DZNUM 
BEQ 5$ 
MOVB = DZNUM,R1 
MOVB —R1, SAVNUM 
MOV #1,DZACTV 
DEC R1 
BEQ 98$ 


SET THE DEFAULT BUS LEVEL 
z:TRY TO SET ALL DTR BITS 


se MA F 
SET THE DEFAULT LIne SELECTION PARAMETER 
4: THE DEFAULT PARAMETERS 

PARAMETERS INTO ETABLE b+ | + lia 
Ser THE DEFAULT MODE OF OPERATION 


; TERMINATE LIST 

[UPDATE DEVICE COUNTER 

> ARE MAX. Ray OF DEV Pid 
zYES DON'T 


LOOK FOR ANY MORE. 
[UPDATE CSR POINTER ADDRESS 
:BR IF MORE ADDRESS TO CHECK. 
WERE ANY DZ11°S FOUND AT A 


ERROR AUTO SIZER FOUND NO ADzi1* S IN THIS SYS. 


; SAVE NUMBER OF DEVICES 


SEQ 0060 
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NISRSVEKSRVNS 


— 

NM RONMoKMoNoNoNoNoNononsfuretrd 
N 
. 


8 8 


012364 
012372 


001404 
001312 
001404 
010122 


012056 


000340 
012326 
001500 


000300 
000302 
000004 
001000 
001404 


012316 
001502 
004772 


26-NOV-79 
POWER 


001304 
000020 
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DZACTV 
4$ 


DZCRO, $BASE 
MANTO,$CDW1 


#6, ane 
DZACTV, $DEVM 
VE CMAP 


-MERR2 
0 


An 4 
#3$, (SP) 


#340 ,a#22 


(RO) +, (R1)+ 
R1,4 #1000 


1$° 
DZACTV,R4 


R4 
5$ 


#0 
#BIT148B1T5, a(R2) 


ne 

with 4(R1) 

RO 

#300,2(R2) 

#14,R2 

2$ 

(SP) ,2(R2) 

#10 3(R2) 
7,2(R2) 


#3$, (SP) 


DZVCO,$VECT1 
oe come 


z:POINT TO THE ADDRESS OF FIRST DEVICE 

2 INDICATE TO ETABLE WHAT MODE IS BEING USED 
;RESTORE TRAP VECTOR 

;SAVE ACTIVE REGISTER 

:GO_ FIND THE VECTOR NOw. 

ZNOTIFY OPR THAT NO DZ11°S FOUND. 

[MAKE DATA DISPLAY ZERO 
TOP THE SHOW 


3$ 

[DISABLE CONT. SW. 

aeTURe BY NON-EXISTENT TIME-OUT 
;RETURN TO MAINSTREAM 


SET IOT TRAP PRIORITY TO 7 

:SET IOT TRAP VECTOR 

SET SOFTWARE POINTER 

; FLOATING ig Hh START HERE. 
PC OF IOT INSTR 

START PILLING VECTOR AREA 


oT 
SAD 2 TO. RO _+R 
HAS THE VECTOR AREA BEEN EXCEEDED? 
;BR IF MORE TO FILL 
STORE TEMPORARILY 


BRING OUT A BIT 
SBR IF ALL DONE 
;ZERO CPU PRIO 


T CSR 
:SET THE TCR BIT! 
aA TO FORCE AN INTERRUPT 


FOR TIME TO INTERRUPT 
[NO INTERRUPT ASSUME 300 AND FIX DZ11 LATER 


7 INIT 

[POP SOFTWARE POINTER 

KEEP GOING 

GET VECTOR ADDRESS 

:POINT BACK TO THE CORRECT VECTOR 
EAR JUNK 


:POP IOT JUNK OFF STACK 
SET FOR RETURN 


:COPY VECTOR OF FIRST DEVICE INTO ETABLE 
ZRESTORE THE SCOPE T 
ZALL DONE WITH "AUTO SIZING" 
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1 
ty peaaakeaneaeenereneeaeaee TEST 7 “weal Cae 
2833 :*THIS TEST PROVES THE SLAVE SYNC RESPON 
2834 + *DURING A ~ hay OR WRITE TO THE FOLLOWING. ADDRESS: 
2835 +8 DZCSR, DZRBUF, DZTCR, DZMSR 
2836 see VEST ¥ 
2837 ; LEER REAR E EERE REE RARER ERR A AR RARER ERREEREREE RRR 
2838 012374 000004 TST1: SCOPE 
2839 012376 012737 000001 001122 MOV #1,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
2840 012404 012737 012564 001360 MOV MTST2,NEXT =POINT TO THE START OF THE NEXT TEST 
2841 012412 012737 012552 000004 MOV #5$,4 ;SET TRAP VECTOR 
2842 012420 012737 000340 000006 MOV #PR7 6 ;SET PRIORITY TO LEVEL 7 
28435 012426 012737 012434 001362 MOV #1$,LOCK ;SET RETURN IF SWO9=11 
2844 012434 013700 002042 18: MOV DZCSR,RO SET ADDRcSS TO TEST 
2845 012440 011001 MOV (RO) ,R1 sREAD i ADDRESS 
2846 012442 000240 NOP sWASTE T 
2847 012444 005010 CLR (RO) ;WRITE THE ADDRESS 
2848 012446 000240 NOP WASTE TIME 
2849 012450 012737 012456 001362 MOV #2$,LOCK “SET RETURN ADDRESS FOR SWO9 
2850 012456 013700 002046 2$: MOV DZRBUF ,RO 7SET ADDRESS TO TEST 
2851 012462 011001 MOV (RO) ,R1 READ THE ADDRESS 
2852 012464 000240 NOP 
2853 012466 005010 CLR (RO) SWRITE THE ADDRESS 
2854 012470 000240 NOP sWASTE TIME 
2855 012472 012737 012500 001362 MOV #3$,LOCK ;SET RETURN ADDRESS FOR SWO9 
2856 012500 013700 002056 3$: MOV DZTCR,RO SET ADDRESS TO TEST 
2857 012504 011001 MOV (RO) ,R1 ;READ THE ADDRESS 
2858 012506 000240 NOP 
2859 012510 005010 CLR (RO) sWRITE THE ADDRESS 
2860 012512 000240 NOP 
2861 012514 012737 012522 001362 MOV #4$,LOCK 7SET RETURN ADDRESS 
2862 012522 013700 002062 4$: MOV DZMSR,RO ;SET ADDRESS TO TEST 
2863 012526 011001 MOV (RO) ,R1 ;READ FROM ADDRESS 
2864 012530 000240 NOP 
2865 012532 005010 CLR (RO) WRITE THE ADDRESS 
2866 012534 000240 NOP 3 
2867 012536 012737 000006 000004 MOV #6,4 ;SET TRAP CATCHER BACK TO NORMAL 
2868 012544 005037 000006 CLR : 
2869 012550 104400 ADVANCE > SCOPE THIS TEST 
2870 012552 011601 5$: MOV (SP) ,R1 + SAVE PC OF ~~ 
2871 012554 022626 CMP (SP) +, (SP)+ ‘POP TRAP OFF STACK 
2872 012556 104001 ERROR 1 z*NO SLAVE SYNC RESPONSE. 
2873 012560 104401 SCOP1 ; SWO9= 1? 
2874 012562 000111 JMP (R1) 
2875 Pkktekhtekeeeeeteee eek TEST OC RRR EEEREREE ARERR 
2876 *THIS TEST PROVES THAT BIT ‘DCLR'’ 
2877 3*CAN BE SET AND THAT IT WILL CLEAR 
2878 isBY ITSELF AFTER A PERIOD OF TIME. 
2879 z:* TEST 2 
2880 DAIS III IIIIDITIXIISIDIDIIIDISIOIDIOIOIUIIOIDIDIOIIIOIOIDIDIDIOIIIOIIDIIIOI IDI III IR 
2881 012564 000004 TST2: SCOPE 
2882 012566 012737 000002 001122 MOV #2, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
2883 012574 012737 012650 001360 MOV #TST3,NEXT *POINT TO THE START OF THE NEXT TEST 
2 012602 013700 002042 MOV DZCSR,RO SET poeren 
22885 012606 012705 000020 MOV #DCLR,RS SET 
2886 012612 010510 MOV R5, (RO) ‘ORITE OCLR INTO DZCSR 
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012650 


012650 
012652 
012660 


012742 
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000003 
012742 
002042 
000010 


SS 
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001122 
001360 
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MOV (RO) ,R4 :READ BACK DZCSR 
CMP R5 RG ‘DZCSR OK? 
BEQ 1$ :IF IT IS SET SKIP THE ERROR CALL 
ERROR 2 *DCLR SHOULD BE SET. .MOMENTARILY 
:NOW LETS WATCH IT DISAPPEAR’ 
1$: CLR R2 :SET COUNTER TO 0 
CLR R5 :SET EXPECTED TO 0 
CLR R3 [DUAL LOOP COUNTER 
2$: MOV (RO) ,R4 SIS DCLR CLEAR? 
BEQ 3$ SIF YES , GO TO THE NEXT TEST 
INC R3 7IF NO,COUNT 1 OF 65535 T 
3TH WORD CR CREATED BY THE NPEDIATE 0 WILL BE 
BNE 2$ SHAS THE TIME EXPIRED? IF NO, GO TEST BIT AGAIN 
DEC R2 SHAS THE TOTAL TIME EXPIRED? 
BNE 2$ [IF NO, CHECK THE BIT AGAIN 
. ERROR 2 ‘*DCLR FAILED TO CLEAR 
[RARER EKEEREREKKKE TEST 3 PRRARSSAASZLALASLEESLALESESL ELE SSS SE 
t*TEST TO VERIFY THAT BIT ‘MAINT’’ CAN 
‘*BE SET. THEN VERIFY THAT BIT ‘MAINT'’ CAN 
:*BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
[VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
rest gteARe BY A ‘DEVICE CLEAR'' 
- 3 
PITTI TILT TITI TILT TTT TTL LE LLL EL EL EL ELE EEE LELELEL ELE LEE 
TST3: SCOPE 
MOV #3, STSTNM ;LOAD THE NUMBER OF THIS TEST 
MOV #TST4 NEXT ‘POINT TO THE START OF THE NEXT TEST 
MOV DZCSR.RO [GET BASE ADDRESS 
MOV AMAINT RS ‘SET BIT 
MOV RS, (RO) [SET SET IN DEVICE 
MOV (RO) ,R4 [READ THE BIT FROM DEVICE 
CMP R5,R4 :WAS BIT SET? 
BEQ 1$ BR IF YES 
ERROR 2 :*BIT R/W FAILURE 
1$: BIC RS, (RO) SCLEAR THE BIT. 
MOV (RO) ,R4 SREAD DEVICE 
BEQ 2$ ‘BR IF BITS WERE CLEARED. 
MOV R5,-(SP) SSAVE THE BIT 
CLR R5 SSET EXPECTED RESULTS TO 0 
ERROR 2 '*BIT FAILED TO CLEAR 
MOV (SP)+,R5 SRESTORE THE BIT. 
2$: MOV R5, (RO) :SET THE BIT AGAIN 
DEVICE.CLR TISSUE DEVICE CLEAR 
MOV (RO) ,R4 *READ THE BIT. 
BEQ- 3$ ‘BR IF BIT CLEARED BY INIT (DEVICE CLEAR) 
CLR RS :SET EXPECTED TO ZERO 
ERROR 2 ‘*BIT NOT CLEARED BY DEVICE CLEAR 


LEAR RERE EERE TEST GRRE EE 
S*TEST TO VERIFY THAT BIT " MSENAB"* CAN 

7*BE SET. THEN VERIFY THAT BIT ‘MSENAB’' CAN 

7*BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 

s*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 

:*CLEARED BY A ‘DEVICE CLEAR 


SEQ 0063 
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TEST 4 
SERRE ERR ERE ERE EERE RARER ERE EERE REEER ERROR EEE 


012742 000004 S14: 


#4, STSTNM LOAD _THE NUMBER OF THIS TEST 
#TST5, ~ a ;POINT TO THE START OF THE NEXT TEST 
:GET BASE ADDRESS 
7SET BIT 
SET SET IN DEVICE 
READ THE BIT FROM DEVICE 
‘on ir BIT SET? 


IF YES 
2*B1T R/W_ FAILURE 
E E BIT. 


EVICE 
:BR IF wa at WERE CLEARED. 


SAVE THE BIT 

7SET EXPECTED RESULTS TO 0 
:*BIT FAILED TO CLEAR 
;RESTORE THE BIT. 

SET THE BIT AGAIN 

ISSUE DEVICE CLEAR 

:R THE BIT. 


BI 
:BR IF BIT ee i INIT (DEVICE CLEAR) 
2SET EXPECTED TO ZERO 
:*BIT NOT CLEARED BY DEVICE CLEAR 


peaanaeeeeaeeeeeee eek TEST 5 setae ee eee eee eee eee eee tee 
s*TEST TO VERIFY THAT BIT *‘SILOEN"’ 
: *BE SET. THEN VERIFY THAT BIT ‘‘SILOEN’’ CAN 
:*BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
[*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
res} gteAReP BY A ‘DEVICE CLEAR"’ 
San 


SERA EREREEREKEKKERAEREEEKEEKEEKEEKEEEEKEEREEKEREKEEEKEK 


ST5: 
#5 ,STSTNM ;LOAD THE NUMBER OF THIS TEST 
#TST6,NEXT ;POINT TO THE START OF THE NEXT TEST 
DZCSR,RO :GET BASE ADDRESS 
#SILOEN,RS SET BIT 
R5, (RO) SET SET IN DEVICE 

;READ THE BIT FROM DEVICE 

S BIT SET? 


:BR IF YES 
:*BIT R/W FAILURE 
: CLEAR THE BIT. 
READ DEVICE 
7BR IF BITS WERE CLEARED. 
:SAVE THE BIT 
aH EXPECTED RESULTS TO 0 


MOV af SET THE BIT AGAIN 
DEVICE.CLR’ 2 ISSUE DEVICE CLEAR 
MOV HE BIT 


(RO) ,R4 sREAD T 
3$ 7BR_IF BIT CLEARED oY INIT (DEVICE CLEAR) 
SET EXPECTED TO ZERO 


Noy a 
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2999 013124 104002 ERROR 2 ;*BIT NOT CLEARED BY DEVICE CLEAR 
3000 013126 3$: 
3001 FRARRARAARAEREREEREERERER TEST, 6 RRA REEERREREREREREREE 
3002 S*eTEST TO VERIFY THAT BIT ‘ 
3003 i *RE SET. THEN VERIFY THAT BIT ‘RIE’ CAN 
3004 7*BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
3005 **VERIFY THAT AFTER BEING SET. AGAIN IT CAN BE 
3006 *CLEARED BY A "DEVICE CLEAR 
3007 ii* TEST 6 
3008 SERRA ARERR EERE RARER EERE RRR RRRERERERERE RRR 
3009 013126 000004 ; TST6: SCOPE 
3010 013130 012737 000006 001122 MOV #6,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
3011 013136 012737 013220 001360 MOV ATST7,NEXT :POINT TO THE START OF THE NEXT TEST 
3012 013144 013700 002042 MOV DZCSR,RO ;GET BASE ADDRESS 
3013 013150 012705 000100 MOV ARIE, RS 3;SET BIT 
3014 013154 010510 MOV RS (RO) sSET SET IN DEVICE 
3015 013156 011004 MOV (RO) .R4 SREAD THE BIT FROM DEVICE 
3016 013160 020504 CMP R5 JR4 ;WAS BIT SET? 
3017 013162 001401 BEQ 1$ ‘BR IF YES 
3018 013164 104002 ERROR 2 ;*BIT R/W FAILURE 
3019 013166 040510 1$: BIC R5, (RO) = CLEAR THE BIT. 
3020 013170 011004 MOV (RO) RS READ DEVICE 
3021 013172 001404 BEQ Y RO ;BR IF BITS WERE CLEARED. 
3022 013174 010546 MOV R5,-(SP) ;SAVE THE BIT 
3023 013176 005005 CLR RS 7SET EXPECTED RESULTS TO 0 
3024 013200 104002 ERROR ; 7*BIT FAILED TO CLEAR 
3025 013202 012605 MOV 9 R5 “RESTORE THE BIT. 
3026 013204 010510 2$: MOV , (RO) [SET THE BIT AGAIN 
3027 013206 104413 DEVICE. cha s ISSUE DEVICE CLEAR 
3028 013210 011004 MOV (RO) ,R4 READ THE BIT. 
3029 013212 001402 BEQ 3$ ‘BR IF BIT CLEARED BY INIT (DEVICE CLEAR) 
3030 013214 005005 CLR R5 sSET EXPECTED TO ZERO 
3031 013216 104002 ERROR 2 :*BIT NOT CLEARED BY DEVICE CLEAR 
3032 013220 3$: 
3033 LURKER AREER REE AREER TEST ? RARER REREREEREEER EEE 
S*TEST TO VERIFY THAT BIT ‘TIE’ 
3035 7*BE SET. THEN VERIFY THAT BIT ‘‘TIE'’ CAN 
3036 : *BE CLEARED (WRITTEN TO A ZERO). AND FINALLY 
3037 :*VERIFY THAT AFTER BEING SET AGAIN IT CAN BE 
3038 s*CLEARED BY A ‘DEVICE CLEAR’’ 
3039 seem VES! 7 
3040 ZIAD Rk hk tk tt tt 
3041 013220 000004 TST7: SCOPE 
3042 013222 012737 000007 001122 MOV #7, STSTNM OAD THE NUMBER OF THIS TEST 
3043 013230 012737 013312 001360 MOV #Ts10, NEXT :POINT TO THE START OF THE NEXT TEST 
3044 013236 013700 002042 MOV DZCSR,RO ;GET BASE ADDRESS 
3045 013242 012705 040000 MOV gure R5 7SET BIT 
3046 013246 010510 MOV RS, (RO) sSET SET IN DEVICE 
3047 013250 011004 MOV (RO), R4 READ THE at FROM DEVICE 
3048 013252 020504 CMP RS, RG [WAS BIT SET? 
3049 013254 001401 BEQ 1$ 3;BR IF YES 
3050 013256 104002 ERROR 2 :*BIT R/W ee 
3051 013 040510 1$: BIC R5, (RO) : CLEAR THE BIT 
3052 013262 011004 MOV (RO) .R4 READ DEVICE 
3053 013264 001404 BEQ 2$ ‘BR IF BITS WERE CLEARED. 
3054 013266 010546 MOV R5,-(SP) 7SAVE THE BIT 
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SET EXPECTED RESULTS 10 0 
:*BIT FAILED TO _— 


sREAD THE BIT. 
:9R_IF BIT CLEARED BY INIT (DEVICE CLEAR) 
;SET EXPECTED TO ZERO 

:*8I1T NOT CLEARED BY DEVICE CLEAR 


[AMAAAAAARERAAAEREEERERER Ly 10 See ee eee eee eRKkeekkekanneene 
[*THIS TESTS THAT ALL OF THE FOLLOWING 
>*BITS CAN BE: SET, CLEARED, CLEARED BY ‘DEVICF CLEAR ** 
:s61TS TESTED ARE: 
resi 10 TCRO, TCR1, TCR2, TCR3, TCR4, TCRS, TCR6, TCR7 
st 


SF RARE AAAAAAAEAAEAERARERERAEERARAEEAARARREARERAERERARAERAEREAAERERREE ERE 
$710: 
000010 001122 #10,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
013450 001360 arsiit “NEXT :POINT TO THE START OF THE NEXT TEST 
002056 DZTC ZSET DEVICE ADDRESS 
000001 Oe ORO. "RS SSET EXPECTED RESULTS 
013346 001362 #18, LOCK OR SwO9 


5, (RO) BIT 

(RO) -R4 *READ THE BIT FROM THE DEVICE 

177400 #*C<377>,R4 :CLEAR HIGH BYTE 
op R5S,R4 “WAS BIT OK? 
[BR IF YES 

2 :*BIT FAILED TO SET. 

RS, (RO) :CLEAR THE BIT 

(RO) RG TREAD THE REGISTER 
#*0<377>,RG [CLEAR HIGH BYTE 
RG ‘BITS CLEAR? 

F YES 


esssssssssc 


:SAVE GOOD RESULTS 
:SET EXPECTED TO 0 
:*REPORT GIT NOT CLEAR 
ZRESTORE R5 

:SET THE BIT AGAIN. 
DEVICE. CLR ; 


RG 
#°C<377>,RG : 
R4 ‘BITS CLEAR? 
4$ :BR IF YES 
R5,-(SP) SAVE GOOD oe TS 
R5 SET EXPECTED T 


33 


2 
(SP)+,R5 


R5 
1$ 


00 

2 *REPORT BIT NOT CLEAR 

RESTORE R5 

:LOCK ON BIi? rr SWwO9=1 
TO NEXT BIT 

CONTINUE TESTING 


So 
atatatbabad ad ad ab ad ab ad adad ad adad 


13322 
a 
340 
13346 
1 
33 
3 
013366 
013370 
33 
13400 
3402 
3404 
3406 
3410 
3412 
3414 
3416 
3422 
3424 
3426 
3430 
3432 
3434 
3436 
3440 
3442 
3444 


leleleleloejleleloleolelolelojo) 


LOCK MAKE SURE TIGHT LOOP IS CLEANED UP 


WITT ttt Ti tiiiiiitiiity TEST 11 xaxeeanearaeaeeeeenaneeeeeeeene 

:*THIS TESTS THAT a OF THE FOLLOWING 

:*BITS CAN BE: . CLEARED, CLEARED BY “RESET INSTR *NOT* DEVICE CLEAR * 
7*BITS TESTED ARE: 


WWNWWNAAANAAAN 
he a ed ed ed ed aed eed eed ed 
SRLFSRELLS 


~ 
So 





WAWWAWAAWWAWAAAAAW 
aS 


WWNWWANINAAAA AAA 
cae ed cd a ae ed a aed ed ed ed ed ed 
RALRAVISSSVKALAN 
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:* DTRO, DTR1, DTR2, DTR3, DTR4, DTRS, DTR6, DTR7 
“eTHIS TEST 1§ NOT DONE IF MODULE IS 20MA VERSION 


zi® TEST 11 
fF RARER AAA RERERARAAEAAAEAAAERERARAAAERARERAARAERRRERRAREAARRAEERRREREEE 

013450 000004 TST11: SCOPE 
013452 012737 000011 001122 MOV #11,STSTNM ;LOAD THE NUMBER OF THIS TEST 
013460 012737 013632 001360 MOV #TST12,NEXT [POINT TO THE START OF THE NEXT TEST 
013466 013700 002056 MOV DZTCR,RO ZSET DEVICE ADDRESS 
013472 012705 000400 MOV ADTRO.RS SSET EXPECTED RESULTS 
013476 012737 013514 001362 MOV #1$,LOCK :SET FOR SwO9 
013504 105737 001414 TSTB = EIAFLG [20MA OR EIA 
013510 100001 BPL i$ [BR IF EIA 
013512 104400 ADVANCE SEXIT TEST 
013514 010510 1$ MOV RS, (RO) ‘SET THE BIT 
013516 011004 MOV (RO) ,R4 [READ THE BIT FROM THE DEVICE 
013520 105004 CLRB RG [CLEAR LOW BYTE 
013522 020504 CMP R5.R4 [WAS BIT OK? 
013524 001401 BEQ 2$ ‘BR IF YES 
013526 104002 ERROR 2 :*BIT FAILED TO SET. 
013530 040510 2s: BIC R5, (RO) SCLEAR THE BIT 
013532 011004 MOV (RO) RS :READ THE REGISTER 
013534 105004 CLRB RG [CLEAR LOW BYTE 
013536 005704 TST R4 ‘BITS CLEAR? 
013540 001404 BEQ 3$ :BR IF YES 
013542 010546 MOV R5,-(SP) :SAVE GOOD RESULTS 
013544 005005 CLR R5 [SET EXPECTED TO 0 
013546 104002 ERROR 2 S*REPORT BIT NOT CLEAR 
013550 012605 MOV (SP)+,R5 SRESTORE R5 
013552 010510 3$: MOV R5, (RO) 7SET THE BIT AGAIN. 

3554 104413 DEVICE.CLR TISSUE DEVICE CLEAR 
013556 011004 MOV (RO) .R4 [READ THE REGISTER 
013560 105004 CLRB sR : Ow BYTE 
013562 030510 BIT R5, (RO) [WAS BIT CLEARED BY DEVICE.CLR? 
013564 001001 BNE 4$ [BR IF NO (IT SHOULDN'T BE CLEAR) 
013566 104002 ERROR 2 [*BIT CLEARED BY DEVICE.CLR 
013570 104401 4$: SCOP1 [LOCK ON BIT? SWwO9=1 
013572 006305 ASL RS [CHANGE TO NEXT BIT 
013574 001347 BNE 1$ ‘IF NOT DONE LOOP 
013576 012710 177400 MOV #177400,(RO) SET ALL DTR BITS 
013602 005005 CLR RS [CLEAR LOCATION FOR ERROR PRINTOUT 
013604 005227 000000 5$ INC TACT LOOP FOR 

13610 00137 BNE 5$ SRESET INSTRUCTION 
013612 RESET 1S INIT 
013614 011004 MOV (RO) ,R4 TREAD REGISTER 
013616 105004 CLRB [CLEAR LOW BYTE 
013620 005704 TST R4 ‘DTR BITS CLEAR? 
013622 001401 BEQ +4 TIF YES CONTINUE 
013624 104002 ERROR 2 ‘IF NO PRINT ERROR 
013626 005037 001362 CLR LOCK [MAKE SURE TIGHT LOOP IS CLEANED UP 


pakearaeankaaeeeeaeeeeenk TEST 12 sear aeeee ee eee eee eee eee eeeeeee 
;*THIS TEST PERFORMS RESET TESTING & 

:*TESTING OF WRITE ONLY OR READ ONLY BIT 

:* TEST BITS ‘RDONE, BIT11, BIT10, BITS, BIT8, BIT2, BIT1 

o* BITO, SILOAL’* ARE READ ONLY AND THAT TRDY IS 

s* ZERO UNTIL A LINE IS SELECTED AND MSENAB IS SET. 


-* 
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3167 
3168 
3169 


+ 
AIS 


— os os st ss SS es SYS SS SS tS YS Ss SS 


WAWAAAAAAAAAAAAAAAAAAAA 
SSBLRALATSSISVSAR 


HRI 
OWDONAULWN—-O 


ON 
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013750 


013750 


014024 
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01273 
012737 
013700 


005005 
012710 


052) 
3 


000012 
013750 
002042 
027607 
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001122 
001360 
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;:* TEST 12 


SRR RAAAAEAARAAAEAERAAAEEAAEAAAARAEAAEAARARAAARARRAERRERAERERRRERRARRERE 


rT12: 
#12,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
#TST13,NEXT ‘POINT TO THE START OF THE NEXT TEST 
DZCSR, RO :SET T ADDRESS TO TO oro 
#RDONE +B1T11 eB Tiovel T9+B] 18*BI oo eB! 11*81TO+*SILOAL, (RO) 
-WRITE THE BITS 


(RO) ,R4 
1$ 


zREAD TRDY 
s6R IF NOT SET 


;SET EXPECTED BIT 

;LOAD LINE 0 
#TCRO,@DZTCR :SET TCR BIT 
WMSENAB , (RO) 


#MSENAB ,R5 SET SCAN _ENABLE 
R2 4+} COUNTER ig ZERO 
a oR4 READ REGISTER 


. 


2 S WER E SET. 
#TRDY, (RO) ZATTERPT TO WRITE TRDY 
(RO) ,R4 


R2 
3$ 7BR 
2 :*TRDY NOT SET! 


peanakaankeeatenereeeeane TEST 13 RRR A EAE ERE REE 
THIS TEST PERFORMS RESET TESTING AND 
:*TESTING OF READ ONLY AND WRITE ONLY BITS 
ie IN REGISTER, DZCSR 
; *VERIFY THAT aoe *“SILOEN’', ‘RIE*', ‘MSENAB’’, ‘MAINT’ 
;*ARE THE ONLY R/W BITS IN THE DZCSR. 
 *THEN VERIFY Thal A RESET WILL CLEAR THESE BITS 

rest ys TEST ALSO CHECKS BYTE OPERATIONS ON THE CSR 

pee 


SARA EAEAEREREEEAEAEAAAEAAAEAAAERAEAEAERAREARERREERKEEEKEEEE 


S113: 
#13,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
#TST14,NEXT *POINT TO THE START OF THE NEXT TEST 


DEVICE.CLR 
MOV DZCSR,RO :SET UP FOR ERROR MESSAGE 
#*C<DCLR>, (RO) :TRY TO WRIT 
ATIE'SILOEN!RIE!MSENAB'MAINT,RS :MAKE EXPECTED 
(RO) .R4 ACTUAL 
RG RS : CMP EXPECTED VS ACTUAL 


2 :* 

(RO) [CLEAR LOWER BYTE OF CSR 
RS ‘SET EXPECTED 

(RO) .R4 :READ CSR BITS 

R4,R5 COMPARE ACTUAL TO EXPECTED 
3$ ‘BRANCH IF SAME 
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014026 
0140 


014170 


014170 
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014214 
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2 s OTHERWISE arts ERROR 
177757 3$: MOV #*C<DCLR>, (RO) ai 73 CSR BITS 
166004 3C¢ 


@HDZCSR AR HIGH BYTE OF CSR 
000150 ARIE 'MSENAB'MAINT RS 

:SET RS TO EXPECTED RESULTS 
(RO) .R4 TREAD CSR 

R4 RS ZACTUAL = 2 EXPECTED? 


4$ SAME 
2 ; OTHERWISE “i  toaeae ERROR 
177757 : #*C<DCLR>, (RO) ;RESET CSR BITS 
R5 ;SET RS TO — RESULTS 
000000 : #0 ;DELAY TIMER 
5$ SACT=11 COMPATIBILITY 
ISSUE BUS INIT 
(RO) ,R4 >READ CSR REGISTER 
2s BRANCH IF CSR IS CLEAR 
; IF NOT PRINT ERROR 


peaekakankaeeneeeneeeeeek TEST 14 exeee eee eee ee ee eee eee keene 
**THIS TEST PERFORMS RESET TESTING AND 
s*TESTING OF READ ONLY REGISTER DZRBUF 
vest — TESTING OF WRITE ONLY REGISTER DZLPR 
-:® 
OTTTITISITITITITITI LITT TT TTT TITTLE LTTE ELLE Eee i 
TST14: SCOPE 
000014 MOV #14, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
014170 MOV #TST15 NEXT sPOINT TO THE START OF THE NEXT TEST 
DEVICE.CLR ;CLEAR D211 
002046 MOV Z ;SET UP FOR ERROR MESSAGE 
sSET E XPECTED 
177777 7 TRY TO WRITE ALL 1°S 
RO) .R4 TACT 
104000 #DVALID!BIT11, RS" :DITTO 
MP R4,R5 MP ACTUAL VS EXPECTED 
1 LIF YES.GO CONTINUE PROCESSING 
2 + *ERROR- BIT PATTERN NOT CORRECT 
R4,R3 7GET A COPY OF THE ACTUAL BI” PATTERN 
R :GET THE LOGICAL INVERSE OF “HE BIT PATTERN 
165672 R3,@DZLPR : TRY TO WRITE 
(RO) ,R4 CTUAL 


R4,R5 “CMP ACTUAL VS EXPECTED 
2$ if WES. GET OUT OF THIS TEST 
* 


pekaakkaakkakeeateeeaeeae TEST 15 RRRRRREAREEEEERREREE ERE REE 
S*THIS TEST PERFORMS RESET TESTING AND 
:*TESTING OF READ ONLY REGISTER DZMSR 
vest — TESTING OF WRITE ONLY REGISTER DZTDR 
ae 
: PAAR RAE REE ERE EERE ERE RARER EERE RAEEERERER EEE 
T8115: SCOPE 
000015 001122 V #15, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
014254 001360 *POINT TO THE START OF THE NEXT TEST 
‘ [CLEAR D211 
002062 ;SET UP FOR ERROR MESSAGE 
SET EXPECTED 
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3279 014216 012777 177777 165642 MOV a#-1 ‘ge TRY TO WRITE ALL 1°S 
3280 014224 011004 MOV (ROS, & ACTUAL 
3281 014226 020405 CMP RGR CMP ACTUAL VS EXPECTED 
3282 014230 001401 BEQ 1$ :1F YES,GO CONTINUE PROCESSING 
3283 014232 104002 ERROR 2 :*ERROR- BIT PATTERN NOT CORRECT 
3284 014234 010403 1$: MOV Ré RS :GET A COPY OF THE ACTUAL BIT PATTERN 
3285 014236 005103 COM R3 GET THE LOGICAL INVERSE OF THE BIT PATTERN 
3286 0142460 010377 165622 MOV R3,@DZ TDR TRY TO WRITE 
3287 014244 011004 MOV (RO) -R4 ; ACTUAL 
3288 014246 020405 CMP RG RS CMP ACTUAL _VS EXPECTED 
3289 014250 001401 BEQ 2s IF YES, GET OUT OF THIS TEST 
3290 014252 104002 ERROR 2 ; *NO 
3291 014254 2$: 
3292 
3293 
3294 TERRE AE EERE ERE TEST 14 RRR 
3295 *VERIFY THAT IF WE ARE IN ‘‘STAGGERED'’ MODE 
3296 *THAT SETTING ae FOR A LINE WILL 
3297 ;*BRING UP ‘RING'' AND ‘CARRIER’ FOR THE 
3298 :*ASSOCIATED LINE IN WHICH WE ARE STAGGERED! 
3299 :* LINEO DTR= LINE] RING AND CARRIER 
3300 >* LINE] DTR= LINEO RING AND CARRIER 
3301 3* LINE2 DTR= LINES RING AND CARRIER 
3302 3* LINES DTR= LINE 4 RING AND CARRIER 
3303 :* ETC... 
3304 
3305 3:* TEST 16 
3306 LAA RE EERE RRR ERE RRA ERERE ER ERR ERE REE ER Ee 
3307 014254 000004 TST16: SCOPE 
3308 014256 012737 000016 001122 MOV #16, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
3309 014264 012737 014450 001360 MOV ATST17,NEXT :POINT TO THE START OF THE NEXT TEST 
3310 014272 012737 014344 001362 MOV #1$,LOCK sUSE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
3311 014300 105737 001414 TSTB EIAFLG EIA OR 20MA? 
3312 014304 100001 BPL 10$ BR IF te 
3313 014306 104400 ADVANCE sEXIT TEST 
3314 014310 013700 002062 10$: MOV DZMSR ,RO [SET REGISTER 
3315 014314 104413 DEVICE.CLR SINIT 0211 
3316 014316 005003 CLR R3 ZERO LINE NUMBER 
3317 014320 012702 000001 MOV #1,R2 ‘ee POINTER 
3318 014324 005737 001370 TST MODE ARE WE IN STAGGERED MODE? 
3319 014330 100405 BM! 1$ YES WE AR 
3320 014332 013737 001360 001126 MOV NEXT ,$LPADR “LEAVE THIS TEST! NOT STAGGERED 
3321 014340 000177 164562 JMP @$LPADR sEXIT 
3322 014344 130237 001364 1$: BITB R2,LINE :TEST THIS LINE? 
3323 014350 001004 BNE 3$ : YES 
3324 014352 005203 23: INC R3 sLINE # 
3325 014354 106302 ASLB Re GET NEXT LINE 
3326 014356 103372 BCC 1$ KEEP TESTING 
3327 014360 104400 ADVANCE ADVANCE THIS TEST 
3328 014362 010204 3$: MOV R2,R SAVE BINARY BIT FOR LINE # 
3329 014364 032703 000001 BIT W110, R3 = STAGGERED COMPANION LINE 
3330 014370 001402 BEQ 4$ BR IF LINE EVEN 
3331 014372 006204 ASR R4 ZADJUST LINE 
3332 014374 000401 BR 5$ 
3333 014376 006304 4$: ASL R4 SADJUST LINE 


3334 014400 005005 5$: CLR R5 7 SET EXPECTED 
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3335 -014402 R4,R5 

336 305 WAB RS ; 
R4,R5 

165444 ISB R2,@HDZTCR SET DTR 


CABLE DELA 
(RO) ,R4 ;READ MSR REGISTER 
R5,R4 s OK? 


so 


YES 
{ SERROR - RING OR CARRIER 


2 
165426 : R2,@HDZTCR 


(79) ,RS 
7$ 7BR_IF THEY CLEARED 
R5 :SET EXPECTED TO 0 
2 :*BITS NOT CLEARED 
: LOCK ON SIGNAL? 
014446 BR 2s CONTINUE TEST 


[RARER EREEE EE TEST 17 RRR EERE EERE RR EE 
:*TEST TO VERIFY THAT IF IN "EXTERNAL" 
:*MODE; SETTING DTR FOR SELECTED LINES 
i*WILL BRING UP ‘‘CARRIER’* AND ‘RI +8 
:*FOR THAT SAME LINE. NOTE: IF YOU HA 
+ *SELECTED MODE AS ‘EXTERNAL"’; THE Hes TEST CONNECTLR 
:*MUST BE USED ON ALL SPECIFIED LINE 
*LINES MAY BE SPECIFIED BY SWR WROS=1 
> *AND a, AT START TIME OR ALTERING 
:*STATUS MAP 
;:® TEST 17 
LAR R ERE RE REREE REE ERR EERE REAR EEERERA REA EER 
014450 000004 ST17: 
000017 001122 #17,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
014606 001360 sPOINT TO THE START OF THE NEXT TEST 
014522 001362 ;USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
001370 E 7 EXTERNAL? 
sBR IF YES 
: sEXIT TEST 
001414 : ;YOU BETTER BE IN 
F BM! 1$ EIA MODE FOR THIS TEST. 
002062 2 SET REGISTER 
000001 MOV #1,R2 ;SET LINE POINTER 
001364 : LINE SELECTED? 
BN 5$ BR if YES 


sNEXT LINE 

> CONTINUE TEST 
sADVANCE THIS TEST 
SET EXPECTED 


R2,R5 : 
R2,@HDZTCR ZSET DTR 
:CABLE DELAY 
MSR 


(RO) ,R4 ;READ 
R5,R4 :BITS OK? 


6$ ;BR IF YES 
CARRIER OR RING ERROR 
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3391 014564 140277 165270 6$: BICB R2,@HDZTCR ;CLEAR DIR 
3392 014570 104414 DELAY ; CABLE DELAY 
3393 014572 011004 MOV (RO) ,R4 ;READ MSR 
3394 014574 001402 BEQ 7$ 7BR IF BITS CLEARED 
3395 014576 005005 CLR R5 ;CLEAR EXPECTED LOC. 
3396 014600 104002 ERROR 2 :BITS NOT CLEARED. 
3397 014602 104401 7$: SCOP1 LOCK ON LINE? 
Ea 014604 000751 BR 4$ ‘CONTINUE TEST 
3400 petaaakkkkkkakkaeneexeenen TEST 20 RRR REE RE 
3401 i THIS TEST VERIFIES THAT TRDY IS SET WHEN A LINE 
3402 :* IS READY TO BE LOADED, AND THAT THE LINE SPECI- 
3403 :* FIED IN BITS 8-10 OF 6ZCSR CORRE SPOND 
3404 te TO THE LINE SELECTED IN DZTCR 
3405 es TEST 20 
3406 SR ERE REE ERERERE ERK e 
3407 014606 000004 75720: SCOPE 
3408 014610 012737 000020 001122 MOV #20,$TSTNM LOAD THE NUMBER OF THIS TEST 
%4 014616 012737 014732 001360 MOV MTST21,NEXT {POINT TO. THE START OF THE NEXT TEST 
3410 014624 104413 DEVICE.CLR 7 ISSUE A ‘DEVICE CLEAR’’ (RESET) 
3411 014626 013700 002042 MOV DZCSR,RO SET POINTER 
3412 014632 012705 100040 MOV #MSENAB! TRDY, RS ;START THE EXPECTED LINE NUMBER AT 0 
3413 014636 005037 001372 CLR SAVLIN SET UP FOR ERROR PRINTOUTS 
3414 014642 012702 000001 MOV #1,R2 ZUSING R2 AS A BIT POINTER, POINT TO LINE O 
3415 014646 130237 001364 1$: BITB R2,LINE 71S THIS LINE SELECTED? 
3416 014652 001420 BEQ 5$ :IF NO, SKIP THE STARTUP 
3417 014654 050277 165176 2$: BIS R2,a@DZTCR [SET THE GO BIT FOR THIS LINE 
3418 014660 052710 000040 BIS #MSENAB, (RO) sSTART THE SCANNER 
3419 014664 005004 CLR R4 SET FOR DELAY 
3420 014666 032710 100000 3$: BIT #TRDY, (RO) 7TX READY? 
3421 014672 001004 BNE 4$ 7BR IF YES 
3422 014674 104414 DELAY ; DELAY 
3423 014676 005204 N RG : TER 
3424 014700 001372 BNE 3$ 3;BR IF <>0! 
3425 014702 104003 ERROR 3 7*TX NOT READY! 
3426 014704 011004 4$: MOV (RO) ,R4 GET THE LINE POINTED TO BY THE SCANNER 
3427 014706 020405 CMP R4,R5 71S THE LINE NUMBER WHAT . SHOULD BE? 
3428 014710 001401 BEQ 5$ if YES,GO WORK ON THE NEXT LINE 
3429 014712 104002 ERROR 2 *LINE NUMBER DID NOT MATCH TCR BIT 
3430 014714 062705 000400 5$: ADD #400,R5 “POINT TO THE NEXT EXPECTED LINE 
3431 014720 104413 DEVICE.CLR 7 ISSUE A ‘DEVICE CLEAR’' (RESET) 
3432 014722 005237 001372 INC SAVL IN TADJUST FOR NEXT LINE 
3433 014726 106302 ASLB R2 sPOINT TO THE NEXT LINE.ARE ALL LINES TESTED? 
3434 014730 103346 BCC 1$ ;IF NOT, GO DO THE NEXT LINE 
3435 014732 6$: 
3436 pekkeakankeee eet eeeatet TEST 2] cea a acer ee ee ee eee eee eee hehe 
3437 T*TEST TO TRANSMIT ONE CHAR AND 
3438 :*RECEIVE ONE CHAR ON ONE LINE 
3439 7*AT A TIME. THE CHAR IS ‘'252°' AND 
3440 ; *ALL we LINES WILL BE TURNED ON 
3441 ;*ONE AT A TIME. THIS IS THE FIRST TIME ANY 
3442 ‘ > *DATA IS CHECKED IN THE RECEIVER 
3443  *USING SWITCH NINE WITH THIS TEST CREATES A TIGHT SCOPE LOOP 
3444 3 *WHICH TRANSMITS A STEADY STREAM OF CHARACTERS. 
3445 ri TEST 21 
3446 DD RRR EEE EE EERE REE ERR RRR 
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000021 V #21,$TSTNM LOAD _THE NUMBER OF THIS TEST 

015270 ATST22,NEXT :POINT TO THE START OF THE NEXT TEST 

015246 MO #16$,LOCK sUSE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
- CLEAR DEVICE AND SET MAINT BIT IF I MODE 

001366 MO PICK UP PARAMETERS 

000001 ° :PICK UP_INIT POINTER 

001364 : ‘ SHOULD THIS LINE BE SET UP ? 


NO 
165050 R1,@DZLPR SET UP LINE PARAMETERS 
2 R1 sPOSITION POINTER TO THE NEXT LINE 
R2 :GOT ‘EM ALL ? 
1$ ;IF NO, GO SET UP THE NEXT LINE 
gels SAVLIN CATOR 


00000 #1,R2 
000040 165014 AMSENAB ,@DZCSR 
001364 : R2,LINE INE ? 

14$ NO SET UP NEXT LINE 


165016 R2,aDZTCR SET TCR BIT 

000200 164774 : AMRDONE,@DZCSR = ;IS REC DONE = 0 ? 
5$ hs YES, ALLOW TIME FOR TRDY TO SET 
20 *REC DONE SHOULD = 0 


: R5 
164760 $ alten 


R5 


6$ 

b :*TRDY FAILED TO SET! 

000252 164764 : #252,aDZTDR ;LOAD CHARACTER 

001372 MOV SAVLIN,RS5 zMAKE EXPECTED LINE # 

001371 MODE +1 :IS THIS TEST IN STAGGERED MODE? 
10$ IF NOT, SKIP STAGGERED SETUP 


;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 


R5 GET THE LAST BIT INTO THE CARRY BIT 
8$ :IF IT IS SET, GO CLEAR IT 
IF IT IS CLEAR SET IT HERE 
9$ +e THE CLEARING 
:CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 
R5 3GET THE NEW BIT BACK INTO R5 
R5 ;MOVE THE LINE NUMBER TO THE UPPER BYTE 
#252,R5 ADD CHARACTER 
5 eee :ADD DATA VALID 


164670 ‘ ARDONE ,aDZCSR 
12$ 


MMYNN-— 


RNASRTSRKFIVEABNSRRVSAR 


R3 


11$ 
& :*RDONE FAILED TO SET! 
164656 : @DZRBUF ,R4 [LOAD THE VALUE ACTUALLY RECEIVED 
R4,R5 COMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME? 
13$ ZIF YES, GO DO THE NEXT LINE 
6 :*NO DATA/CONTENTS DID NOT COMPARE 


lelelelejlelolelelelelelelelelelololelelo) 
Yt SS Ss SS Ss SH Ss SS ss SBS YS SS SH 
PUPP PVP PVA PVT AVA ATTA TTT 
— HY SB  SS  SH s  S S S S  S 
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CHECK TO SEE _IF SWITCH NINE IS SET 
R2,@DZTCR ZCLEAR TCR BIT FOR THAT LINE. 
SAVLIN INC EXPECTED LI 
SAVLIN,RO :SET UP CHARACTER OF FSET 
RO MAKE THE OFFSET A POWER OF TWO 
; SHIFT THE LINE POINTER. ARE WE ALL DONE? 
F NO, GO AROUND AGAIN FOR NEXT LINE 
:THIS CODE HAS BEEN INSERTED 
:TO DETECT A PROBLEM FOUND IN FAULT 
: INSERTION. IF AN ERROR OCCURS MORE 
17$ ; THAN ONE WORD WAS RECIEVED ON 
164602 tal amet ‘LINE Fe 


ER 20 
188: :GO TO NEXT TEST 


TIGHT SCOPE LOOP FOR THIS TEST. LOOP TRANSMITS CHARACTERS ONLY 


032777 164566 16$: #TRDY ,@DZCSR 31S TRANSMITTER READY? 

001774 16$ SIF NOT, WAIT FOR IT 

112777 164602 #252,aD0ZTDR [LOAD THE oS aed 

104401 1 ;LOOP AGIN IF SwO9=1 

000744 BR 14$ OTHERWISE, GO PICK UP THE TEST NORMALLY 


pekankeanaereeeeenekaie TEST 22 see ereee eee erence eee heen 
:* THIS TEST PROVES THAT THE TRANSMITTER TRANSMITS 
3 *CHARACTERS Oe: MODE)AND THE RECEIVER RECEIVES (FLAG MODE) 
z*(ONE LINE AT A TIME BASED UPON VALID LINES) 
rest tls IS THE FIRST TIME THAT ALL DATA IS CHECKED 
:® 
s - ehonneenseudooenessonnenneenennenengunnesentannnneanenenienneied 
TST22: 
000022 001122 #22, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
015616 001360 ATST23,NEXT ;POINT TO THE START OF THE NEXT TEST 
015422 001362 MOV #4$,LOCK USE THIS ADDRESS IF A TIGHT SCOPE LOOP IS SELECTED 
eg DEVICE AND SET MAINT BIT IF I MODE 
PICK UP PARAMETERS 
“PICK UP_INIT POINTER 
SHOULD THIS LINE BE SET UP ? 


;NO 
164512 . SET UP LINE PARAMETERS 
: R1 POSITION + So TO THE NEXT LINE 

$ :IF NO, GO SET UP THE NEXT LINE 
001372 ;CLEAR LINE # INDICATOR 
001422 :POINT TO THE DATA AREA 

(RO CLEAR A DATA WORD 
001462 MP > lic :FINI SHED ? 


:CLEAR OFFSET 


RO 
002046 001400 DZRBUF ,REGIST oc FOR ERROR MSG 
000001 #1,R2 3 POINTER 


000040 164432 #MSENAB ,aDZCSR 
001364 3 R2,LINE 


1465 14$ 
015416 010277 164434 R2,aDZTCR SET TCR BIT 


LINE ? 
SET UP NEXT LINE 
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015422 
015 
015432 
01 


464 
015470 
015474 


015476 
01 


01 
015610 
015612 
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032777 


000200 


100000 


001422 
001372 
001371 


001422 
100000 


000200 


164274 
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164412 4$: BIT WRDONE,@D7CSR ;1S REC DONE = 0 ? 
BEQ 5$ TIF YES, ALLOW TIME FOR TRDY TO SET 
ERROR 20 >*REC DONE SHOULD = 0 
5$: CLR RS 
164376 63: BIT #TRDY,@DZCSR 
E 7$ 
DELAY 
INCB RS 
BNE 6$ 
ERROR 3 ;*TRDY FAILED TO SET! 
164402 7$: MOVB TDO(RO) ,a@DZTDR ;LOAD CHARACTER 
MOV SAVLIN,RS sMAKE EXPECTED LINE # 
TSTB MODE +1 31S THIS TEST IN STAGGERED MODE? 
BEQ 10$ 3IF NOT, SKIP STAGGERED SETUP 
;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
ASR R5 ;GET THE LAST BIT INTO THE CARRY BIT 
BCS 8$ sIF IT IS SET, GO CLEAR IT 
SEC Say fy is CLEAR SET IT HERE 
BR Sh [SKIP THE CLEARING 
8$: CLC CL LEAR THE CARRY BIT (INVERSION OF LINE PARITY) 
9$: ROL RS ;GET THE NEW BIT BACK INTO R5 
10$: SWAB R5 *MOVE THE LINE NUMBER TO THE UPPER BYTE 
BISB TDO(RO) RS ;ADD CHARACTER 
ne * eects ;ADD DATA VALID 
164306 11$: BIT #RDONE ,aDZCSR 
E 12$ 
DELAY 
INC R3 
BNE 11$ 
ERROR 4 ;*RDONE FAILED TO SET! 
12$: MOV @DZRBUF ,R4 ;LOAD THE VALUE ACTUALLY RECEIVED 
CMP R4,R5 s COMPARE ACTUAL VS EXPECTED. ARE THEY THE SAME? 
BEQ 13$ zIF YES, GO DO THE NEXT LINE 
ERROR 6 7*NO DATA/CONTENTS DID NOT COMPARE 
13$: SCOP1 sCHECK TO SEE IF SWITCH NINE IS SET 
INCB TDO(RO) ; INCREMENT BINARY PATTERN FOR THIS LINE 
BNE 4$ :GO "ROUND AGAIN FOR NEXT CHARACTER 
14$: BIC R2,aDZTCR :CLEAR TCR BIT FOR THAT LINE. 
15$: INC SAVLIN 7 INC EXPECTED LINE 
MOV SAVLIN,RO :SET UP CHARACTER OF F SET 
ASL RO sMAKE THE OFFSET A POWER OF TWO 
ASLB R2 sSHIFT THE LINE POINTER. ARE WE ALL DONE? 
BCC 3$ 3: 1F NO, GO AROUND AGAIN FOR NEXT LINE 
CLR LOCK *MAKE SURE LOCK IS CLEAR FOR NEXT TEST 


pete eet ete TEST 23 cerca eee eee eee RE 
:*THIS TEST WILL PROVE THAT EACH RECEIVING LINE CAN 
;*BE DISABLED BY SETTING THE RCVON BIT TO ZERO 


:*FOR EACH LINE IN THE LPR REGISTER. IT ALSO 
: *VERIFIES THAT MASTER CLEAR 1 ZERO DVALID FOR 
*CHARACTERS STORED IN THE SILO 


TEST 23 


SEQ 0075 
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+2 
#23,$TSTNM 
aTSi24, NEXT 


164124 


7$ 
R1,aDZTDR 
R3,R2 


aDZTCR 
R5 


R5 
8$ 
164006 aDZCSR 
BP’ 10$ 
001372 —- 
163776 ; MOV 5S tamed R4 


R4 
177770 #*°C<7>,R4 
001372 R4,SAVLIN 


;LOAD THE NUMBER OF THIS TEST 
:POINT TO THE START OF THE NEXT TEST 
INITIALIZE FOR FIRST TEST LOOP 
:ZERO LINE NO. FOR ERROR REPORT 
SEXECUTE MASTER CLEAR 

sSTORE DEFAULT PARAMETERS 
:CLEAR RCVON BIT 

: INIT LINE POINTER 
LOAD L LINE PARAMETER REGISTER 

SET R1 FOR NEXT LINE 

SSHIFT R2 TO NEXT" LINE 
;ALL_LINES LOADED? 

LOAD TRANSMITTING i 
COPY ACTIVE LINE BITS 

[LOAD TCR BITS 
SET SCANNER 
: INIT DELAY COUNTER 
zs TRDY SET? 
:IF YES BRANCH 

:IF NOT THEN WAIT 

ee hot COUNTER 


DELAY D 
:IF YES TRDY FAILED TO SET 
INE TO RS 


:1F LINE_O GO TEST ore FLAG 
POINT R3_TO NEXT TCR BIT 

;DECREMENT RS UNTIL R3 POINTS 

:TO euiy TCR BET 

SHAS THIS LINE BEEN SERVICED? 

:1F NOT GO SEND CHARACTER 

:1F YES CLEAR TCR BIT 

:1F MORE LINES SET BRANCH 

:1F ALL LOADED IS THIS SECOND PASS 
71F YES BRANCH TO SECOND PART OF TEST 
SOTHERWISE CONTINUE WITH FIRST PART 

; TRANSMIT CHARACTER 

: CLEAR FLAG FOR THIS LINE 

:GO WAIT FOR NEXT LINE 


I 
INCREMENT DELAY COUNTER 
: IF NOT FINISHED CONTINUE WAITING 
; RDONE . U SET? 
IF NO CONTINUE 
:IF YES SET LINE NO. TO ZERO 
>/AND ei ERROR 
;READ SILO 
44 DVALID IS ZERO BRANCH 
F SET THEN 
‘ ISOLATE LINE NO. IN R4 
:SET SAVLIN FOR ERROR REPORT 
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104017 

000766 

105237 001420 
013701 001366 
00500 

104414 

00520 

001375 

104413 

000240 
000240 

105777 163716 
005037 001372 
104020 

017704 163706 
005037 001372 
104017 

012737 24 
012737 016426 
012737 016264 
005737 001370 
001510 

104417 

013701 001366 
052701 000300 
012700 1 
030037 001364 
001402 

010177 163620 
005201 

06300 

103370 

005037 001372 
012702 1 
052777 

013737 002046 
030237 1 
001446 

010277 163560 
110277 163566 
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001122 
001360 
001362 


163564 
001400 


11$: 


12$: 
13$: 


14$: 


15$: 


738 


ST24: 


ane. ee 


1$: 


2$: 


3$: 
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ERROR 17 

BR 10$ 
INCB DONF LG 
MOV PAR ,R1 
BR 1$ 

CLR R5 
DELAY 

INC RS 

BNE 13$ 
DEVICE.CLR 
TSTB aDZCSR 
BPL 14$ 
CLR SAVLIN 
ERROR 20 

MOV @DZRBUF ,R4 
BPL 15$ 
CLR SAVLIN 
ERROR 17 


or me te ap greta ape a 24 RRRRRRRREREREEERRERE ERE 


*THIS a! WILL PROVE 


t* 1) 


THE T 


:DATA VALID pot NOT BE SET 
0 AGAIN 


:IF YES EXECUTE “MASTER CLEAR 


:RDONE SET? 
IF NOT BRANCH 
:1F = THEN PRINT OUT 


;RE 
READ $1L0 
DATA VALID SET? 
IF YES THEN PRINT OUT 
SERROR REPORT 


RANSMITTER “BREAK BIT’* WORKS 


:* 2) THE RECEIVER CAN FLAG ‘FRAMING ERRORS"’ 
3* 3) THE RECEIVER CAN FLAG ‘PARITY ERRORS'' 


: *ONLY 


2 *THIS TEST WILL NOT BE 
*CONNECTED BY AN H325, M3271, OR H3190 CONNECTOR 


TEST 24 


SEERA EEREREERRKEAEEREREARKKEEKEREEEERERKKEKEEEEKEEKEKKKEKK 


#24, $TSTNM 
AMTST25 NEXT 
#3$,LOCK 
MODE 


12$ 


ONE LINE AT A TIME eueat BE EXERCISED. 


XERCISED UNLESS 


THE NUMBER OF THIS TEST 


:LOAD 
;POINT TO THE START OF THE NEXT TEST 


;SET FOR LOOP 


E WE RUNNING IN INTERNAL MODE? 


ZAR 
:IF SO, SKIP THIS TEST 


:CLEAR DEVICE AND SET MAINT BIT IF I MODE 
ICK PARAMETER : 


PAR,R1 “PICK UP 
HODDPAR! PARITY Ri: FORCE ODD PARITY 


RO,LINE 

R1,@DZLPR 

R1 

RO 

1$ 

Re 

#MSENAB ,a@DZCSR 

DZRBUF ,REGIST 
LINE 


1 
R2,aDZTCR 
R2,@HDZTOR 


Ae INIT POINTER 
sSHOULD THIS LINE BE SET UP ? 
NOT,DON'T SET IT 


iIF UP 
ZOTHERWISE, SET UP LINE PARAMETERS 


:GOT "EM ALL ? 
;NO 


:CLEAR LINE # 

:LINE POINTER 

SET MASTER SCAN ENABLE 
SAVE FOR ERRR MESSAGE 


SET TCR BIT 
SET BREAK BIT 


SEQ 0077 
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727 016302 112777 000377 163556 4$: MOVB #377 ,@DZTOR ;LOAD CHARACTE 
728 016310 013705 001372 MOV SAVLIN,R5S sMAKE EXPECTED DATA 
729 016314 105737 001371 TSTB MODE +1 71S THIS TEST IN STAGGERED MODE? 
A 016320 001406 BEQ 7$ ;IF NOT, SKIP STAGGERED SETUP 
a ;WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 
3734 016322 006205 ASR RS ;GET THE LAST BIT INTO THE CARRY BIT 
3735 016324 103402 BCS 5$ sIF IT IS SET, GO CLEAR IT 
3736 016326 000261 SEC LIF IT IS CLEAR SET IT HERE 
3737 016330 000401 BR 6$ :SKIP THE CLEARING 
3738 016332 000241 5$: CLC CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 
3739 016334 006105 6$: ROL RS GET THE NEW BIT BACK INTO RS 
3740 016336 000305 7$: SWAB R5 *PUT LINE NUMBER IN UPPER BYTE 
3741 016340 052705 130000 : BIS #DVALID!PARER! FRMERR, RS ADD EXPECTED 
3742 016344 005004 CLR R4 
3743 016346 032777 000200 163466 8$: BIT #RDONE ,@DZCSR 
3744 016354 001004 BNE 9$ 
3745 016356 104414 DELAY 
37 6360 INC R4 
3747 016362 001371 BNE 8$ 
3748 016364 104004 ERROR 4 :*RDONE FAILED TO SET! 
3749 016366 017704 163454 9$: MOV @DZRBUF ,R4 ZAC TUAL 
3750 016372 020405 CMP R4,R5 7CMP ACTUAL VS EXPECTED. DO THEY MATCH? 
3751 016374 001401 BEQ 10$ :IF YES, GO CLEAN UP 
3752 016376 104006 ERROR 6  *DATA/CONTENTS FAILED TO COMPARE 
3753 016400 105077 163464 10$: CLRB @HDZTOR SCLEAR BREAK BITS 
3754 016404 104401 SCOP1 SLOOP? 
3755 016406 005237 001372 11$: INC SAVLIN zs INC LINE # 
3756 016412 040277 163440 BIC R2,a@DZTCR [CLEAR TCR BIT 
3757 016416 ASLB R2 
3758 016420 103321 BCC 3$ 
3759 016422 005037 001362 12$: CLR LOCK sMAKE SURE LOCK IS CLEAR FOR NEXT TEST 
3760 J Reteekeeeeeeeeeeeeeeeee TEST 25 8a eee eee eee eee 
3761 ie THIS TEST VERIFIES THAT THE DEVICE DOES NOT INTERRUPT 
3762 t *WHILE THE PROCESSOR STATUS IS SET EXACTLY 
3763 :*TO WHAT THE DZ11 PRIORITY IS SET TO. 
3764 ;*DEFAULT PRIORITY IS AT 5 (240). 
3765 Biel TEST 25 
3766 LEAR R EERE RERRERERR ERE EER EEE ER 
3767 016426 000004 1125: SCOPE 
3768 016430 012737 000025 001122 MOV #25 ,STSTNM ;LOAD THE NUMBER OF THIS TEST 
3769 016436 012737 016736 001360 MOV #TST26,NEXT sPOINT TO THE START OF THE NEXT TEST 
3770 016444 104417 DCLASM ;CLEAR DEVICE AND SET MAINT BIT IF I MODE 
3771 016446 013701 001366 MOV PAR ,R1 P CK UP PARAMETERS 
3772 016452 012702 000001 MOV #1,R2 =PICK UP INIT POINTER 
3773 016456 030237 001364 1$: BIT R2,LINE :SHOULD THIS LINE BE SET UP ? 
3774 016462 001402 BEQ 2$ 3 
3775 016464 010177 163362 MOV R1,@DZLPR [SET UP LINE PARAMETERS 
3776 016470 005201 2$: INC R1 ;POSITION POINTER TO THE NEXT LINE 
3777 016472 106302 ASLB R2 :GOT *EM ALL ? 
3778 016474 103370 BCC 1$ :IF NO, GO SET UP THE NEXT LINE 
3779 016476 005037 001372 CLR SAVLIN [CLEAR LINE # INDICATOR 
3780 016502 106437 027060 MTPS @4DZPRT SET CPU STATUS TO DZ11 PRIO, 
3781 016506 113777 001364 163342 MOVB LINE, a@DZTCR ENABLE THE VALID LINES 


3782 016514 3$: 





8 7 


ZA-FO MACY11 30A(1052) 26-NOV-79 11:06 PAGE 80 
CIDTAF. P11 26-NOV-79 11:0 CZDZA DZ11 DEVICE DIAGNOSTICS. SEQ 0079 

783 016514 012777 01 163375 MOV #6$ ,aDZTIV :SET UP THE TRANSMITTER INTERRUPT vec ren 
784 0165 012777 016612 16 er MOV #7$ ,adZRIV ;SET UP THE RECEIVER INTERRUPT VECTOR 

5 0165 013777 027060 163336 MOV DZPRT ,@DZRIS ;SET THE INTERRUPT VECTOR STATUS 
3 0165 013 027060 163334 MOV DZPRT ,adZTIS ;SET TRANSMITTER INTERRUPT PRIORITY 
3787 016544 052777 040040 163270 BIS ATIE!MSENAB, aozcSR sENABLE THE DEVICE 
3788 016552 005005 CLR RY 
3789 016554 032777 100000 163260 4$: BIT #TRDY ,aDZCSR 
3790 016562 001403 BEQ 5$ 
3791 016564 000240 NOP 
3792 016566 000240 NOP 
3793 016570 000412 BR 8$ 
3794 016572 104414 5$: DELAY 
3795 016574 005205 INC RS 
3796 016576 001 BNE 4$ 
3797 016600 104003 ERROR 3 s*TRDY NOT SET! 
3798 016602 000405 BR 8$ 
3799 016604 104010 6$: ERROR 10 7 * TRANSMITTER SHOULD NOT INTERRUPT 
3800 016606 022626 CMP (SP)+,(SP)+ ;POP FOR FAKE RTI 
3801 016610 000402 BR 8$ > CONTINUE TEST 

016612 104012 7$: ERRO® 12 7 *RECEIVER ett NOT INTERRUPT 
3803 016614 022626 CMP (SP) +, (SP) + [POP FOR FAKE RTI 
3804 016616 042777 040000 163216 8$: BIC ATIE,@DZCSR TRESET TRANSMITTER INTERRUPT ENABLE 
3805 016624 012777 016722 163244 MOV #11$,aDZTIV 7SET UP THE TRANSMITTER INTERRUPT VECTOR 
3806 0166352 012777 016730 163232 MOV #12$ ,aDZRIV ;SET UP THE RECEIVER INTERRUPT VECTOR 
3807 016640 013777 027060 163226 MOV DZPRT ,@DZRIS oer THE INTERRUPT VECTOR STATUS 
3808 016646 013777 027060 163224 MOV DZPRT ,adZTIS TRANSMITTER INTERRUPT PRIORITY 
3809 016654 052777 000140 163160 BIS WRIE 'MSENAB, apzcsr ZENBLE THE DEVICE 
3810 016662 113777 001422 163176 MOVB TDO,a@DZTOR 7PuT Y RANDOM CHARACTER IN TRANSMITTER BUFFER 
3811 016670 005005 CLR RS 
3812 016672 032777 000200 163142 9$: BIT #RDONE , aDZCSR 
3813 016700 001403 BEQ 10$ 
3814 016702 240 NOP 
3815 016704 000240 NOP 
3816 016706 000412 BR 13$ 
3817 016710 104414 10$: DELAY 
3818 016712 005205 INC R5 
3819 016714 001366 9$ 
3820 016716 104004 ERROR 4 :*NO RX DONE! (NOT SET) 
3821 016720 000405 BR 13$ : CONT INUE TEST 
3822 016722 104010 11$: ERROR 10 * TRANSMITTER SHOULD NOT INTERRUPT 
as 016724 Besese ag | “bhematde :POP ‘eo RTI 
3825 016730 104012 12$: ERROR 12 ey th ta NOT INTERRUPT 
3826 016732 022626 CMP (SP)+, (SP)+ POP FOR FAKE RTI 
3827 016734 13$: 
3828 016734 104413 DEVICE.CLR s ISSUE DEVICE CLEAR (RESET) 
3829 peeeeakaeananaereneaneaee TEST 26 seek eae arena ea eeeeeeeeeneeneee 
3830 3* THIS TEST VERIFIES THAT THE DEVICE DOES pel 
3831 WHILE THE PROCESSOR STATUS IS SET TO EXACTL 
3832 + ONE LEVEL LOWER THAN THE D211. D211 PRIORITY 
toez ae ant TO LEVEL 5 MINUS ONE LEVEL IS LEVEL 4. 
:* 
3835 . : A RENEE: SEINE LETTE IN ES 
3836 016736 000004 TST26: SCOPE 
3837 016740 012737 000026 001122 MOV #26,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
016746 012737 017264 001360 MOV #TST27,NEXT ;POINT TO THE START OF THE NEXT TEST 
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Coooooo°o°o°o 
2239355552544 
> hh mp PD be me Pe; 


017246 


MACY11 30A(1052) 
26-NOV-79 11:03 


040000 
027062 


26-NOV-79 :06 PAGE 81 
C2DZA D211 DEVICE DIAGNOSTICS. 


162750 


162714 


162674 


162620 


3$: 


4$: 


5$: 


6$: 


7$: 
8$: 


10$: 


11$: 


DCLASM 
MOV 


; # 


a DEVICE AND SET MAINT BIT IF I MODE 
PAR ,R1 K UP PARAMETERS 
#1,R2 PICK UP_INIT POINTER 
tc SHOULD THIS LINE BE SET UP ? 
R1,@DZLPR :SET UP LINE PARAMETERS 
R1 :POSITION POINTER TO THE NEXT LINE 
Re GOT °EM ALL 
1$ 7 IF _NO, 60. SET UP THE NEXT LINE 
SAVLIN SCLEAR LINE # INDICATOR 
@4LESS1 MAKE CPU ONE LEVEL LOWER THAN D711 
LINE ,@DZTCR :ENABLE THE VALID LINES 
#6$ ,aDZTIV SET UP THE TRANSMITTER INTERRUPT — 
#7$ ,aDZRIV ;SET UP THE RECEIVER INTERRUPT VECTOR 
DZPRT ,@DZRIS 2 SET THE INTERRUPT VECTOR STATUS 
DZPRT ,adZTIS SET TRANSMITTER INTERRUPT PRIORITY 
#TIE!MSENAB, "aozcsR ENABLE THE DEVICE 
#TRDY ,@DZCSR 
5$ 
oe : * TRANSMITTER FAILED TO INTERRUPT 
R5 
4$ 
i. z*TRDY NOT SET! 

REMOVE THE INTERRUPT FROM THE STACK 
AMTIE,aDZCSR ;DON'T LET ANY MORE INTERRUPTS OCCUR 
@4LESS1 MAKE CPU ONE LEVEL ar THAN D211 
8$ RETURN TO THE NORMAL FLOW 
12 2 *RECEIVER SHOULD NOT INTERRUPT 
(SP)+, (SP)+ ;POP FOR FAKE RT 
#TIE,a@DZCSR [RESET TRANSMITTER INTERRUPT E 


NABLE 
#11$,a0Z7TIV 7SET UP THE TRANSMITTER INTERRUPT Lay 


DZPRT ,@OZRIS :SET THE INTERRUPT VECTOR STATUS 

DZPR S 3 SET ITTER INTERRUPT PRIORITY 
WRIE!MSENAB,@DZCSR ; ENABLE THE DEVICE 

 aalas :PUT ANY RANDOM CHARACTER IN TRANSMITTER BUFFER 
#RDONE , @DZCSR 

i. :*RECEIVER FAILED TO INTERRUPT 

R5 


9$ 

4 :*NO_RX DONE! (NOT SET) 

13$ ; CONTINUE TEST 

10 :* TRANSMITTER SHOULD NOT INTERRUPT 


SEQ 0080 


dD 7 
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017250 022626 CMP (SP)+,(SP)+ POP FOR FAKE RTI 
000403 BR 13$ CONT TEST 
022626 12$: POP2SP ;REMOVE THE INTERRUPT FROM THE STACK 
005077 162560 138 CLR aDZCSR ;DON'T ALLOW ANY MORE INTERRUPTS 
104413 DEVICE.CLR 2 ISSUE DEVICE CLEAR (RESET) 


peakaakeeakaeeeereneeeane TEST 27 seeareaeeeaeeeneeereeeneneenee 
‘THIS TEST VERIFIES THAT THE RECEIVER WILL 
INT ERRUPT BEFORE THE TRANSMITTER EVEN 
3; * THOUGH THE TRANSMITTER WAS ENABLED 
:#F IRST. SET PS TO LEVEL 
: T RDONE AND cog TO SET: 
teSET TX IE AND RX IE; 
 *CLEAR PS AND EXPECT RX TO INTERRUPT FIRST 
::* TEST 27 


FERRARA ERREEEREERARAEEREERERREREEREEEEREEERERAEEREERKERE EE 


18127: 
000027 V #27, $TSTNM ;LOAD THE NUMBER OF THIS TEST 
017716 MOV #TST30,NEXT [POINT TO THE START OF THE NEXT TEST 
:CLEAR DEVICE AND SET MAINT BIT IF I MODE 
PICK UP PARAMETERS 
“PICK UP INIT POINTER 
: SHOULD THIS LINE BE SET UP ? 


>SET UP LINE PARAMETERS 
aero TO THE NEXT LINE 


i? 
:1F NO, GO SET UP THE NEXT LINE 
SCLEAR LINE # INDICATOR 

; SETUP INTERRUPT STUFF 


DZPRT,aDZTIS—: 
rk ,aDZCSR 


LINE "Thad 
VALID LINE ? 


NOP 
162422 ; P :SET TCR BIT 
162406 ZRBUF : VALID DATA? 
P :1T BETTER NOT BE SET 
7 :DATA VALID ae NOT BE SET 
162372 : f RECEIVER DONE ? 


RECEIVER DONE BIT SHOULD NOT BE SET 


R4 
162356 ;WAIT FOR TRDY 
100$ [BR IF READY 
:STALL TIME 
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R4 : 
99$ 
;TRDY FAILED TO SET 


3 
162364 100$: : _ TDR 
000200 162330 6$: #RDONE , ADZCSR 
BNE 7$ 


RS 
$ 


4 z*RDONE FAILED TO SET! 
162312 : apZCsR ; TRANS DONE BIT = 1 ? 


° *NO TRANS DONE FAILED be SET 
sNOW THAT BOTH TRANSMITTER AND RECEIVER DONE BIT 
;SET INTERRUPT oi AND WATCH THE FUR FLY 
162300 BIS #TIE,aDZCSR 
162272 S ~ -@DZCSR 


7 ; * TRANSMITTER FAILED TO INTERRUPT 
11 *RECEIVER FAILED TO INTERRUPT 
CHECK BR LEVEL 
017664 13$ GET OUT 


sRECEIVER INTERRUPT ROUTINE 
162252 : MOV wg oR4 ACTUAL 


WAB R3 
177770 #*C<7>,R3 STRIP JUNK 
091371 MODE +1 71S THIS TEST IN STAGGERED MODE? 
017610 11$ IF NOT, SKIP STAGGERED SETUP 


MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 


017612 006203 R3 GET THE LAST BIT INTO THE CARRY BIT 
9$ IF IT IS SET, GO CLEAR IT 
IF IT IS CLEAR SET IT HERE 
10$ SKIP THE CLEARING 
[CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 
: R3 :GET_THE NEW BIT BACK INTO R3 
001372 11$: ee SAVLIN 71S THIS A VALID LINE 


ZYES 
is” > * INVALID LINE 
177400 #*C<377>,R4 ;STRIP JUNK 
R5,R4 — COMPARE ? 


+4 
5 SSDATA DOES NOT COMPARE 
162202 R2,a@DZTCR ;CLEAR TCR BIT 
;REMOVE HE INTERRUPT VECTOR FROM THE STACK 
017656 000402 BR 13$ G60 GET OUT OF INTERRUPT MODE 
; TRANSMITTER INTERRUPT svc ROUT INE 
017660 3 ERROR 11 ny RECEIVER gh spe FAILED 
O OVERRIDE THE TRANSMITTER 

017662 022626 POP2SP «REMOVE THE INTERRUPT VECTOR FROM THE STACK 
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000030 
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001366 
000001 
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000040 


000001 
001364 
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13$: BIC AMTIE!RIE,@DZCSR ;CLEAR INTERRUPT ENABLES 
MO DZRIS,aDZRIV RESTORE TRAPCATCHER 


aDZRIS 
DZTIS,aDZTIV 
adZTIS 
[RRARAREERRERRRREEEREREEE TEST 30 cee e ee eee eee eee eee eee eee 
T*TEST TO VERIFY THAT ‘RDONE DOES NOT SET 
*1F i * SCANNER IS DISABLED. 
3; *TURN ON SCANNER, WAIT FOR TRDY, 
; *TURN OFF SCANNER, TRANSMIT A CHARACTER 


*"RDONE SHOULD NOT SET. 
sie TEST 30 


#30,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
#TST31,NEXT ;POINT TO THE START OF THE NEXT TEST 
:CLEAR DEVICE AND SET MAINT BIT IF I MODE 
:PICK UP PARAMETERS 
PICK UP_INIT POINTER 
SHOULD THIS LINE BE SET UP ? 


;NO 
R1,a@DZLPR SET UP LINE PARAMETERS 
Re POSITION POINTER TO THE NEXT LINE 
:1F NO, GO SEI UP THE NEXT LINE 
sav LIN :CLEAR LINE # INDICATOR 
PMSENAB, @DZCSR ;TURN ON SCANNER 
#1 R2 INIT LINE COUNTER 
R2, LINE FIND A VALID LINE 
4$ SIF WE FOUND ONE GO TO TEST 
—— ; IF NOT 


[KEEP LOOKING 
:SET TCR BIT 


71S TRDY SET 
:CON'T TESTING IF IT IS 
:IF IT NOT WAIT A WHILE 


3 WE WAITED LONG ENOUGH-ERROR 
#MSENAB, @DZCSR : TURN OFF SCANNER 
@DZTDR TRANSMIT A_ CHARACTER 
R5 “CLEAR COUNTER 

sWAIT SUFFICIENT TIME FOR 
R5 ;RDONE TO SET 


7$ 

MRDONE, @DZCSR ;RDONE SET 

8$ :1T SHOULDN'T BE-CONTINUE 
20 :1F IT IS THERE'S AN ERROR 


petaakkakeakeeeateeeaeeee TEST 31 RRA 
S*THIS 2 arg 4 OVERRUN AND SILO ALARM 

:*ONE LINE A TIME = BASED UPON VALID LINES 

AS EACH OF TNE FIRST 16 CHARS ARE SENT; SILO ALARM IS 
:*TESTED TO BE CLEARED. ON THE 16TH CHAR THE PROGRAM THEN 
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4063 ;*EXPECTS SILO ALARM TO SET. THEN THE ENTIRE 
4064 -*SILO 15 fy 4 AND AN OVERRUN IS EXPECTED ON THE 65TH 
4065 *CHAR PULLED OUT OUT THE SILO. 
4066 : #USING SWITCH ONINE FOR THJS TEST SENDS 20. CHARACTERS 
4067 ;*ON DZ LINE PREVIOUSLY SELECTED CONTINUOUSLY WHILE SWO9=1. 
4068 :*USED TO SCOPE SILO ALARM PULSES, ETC. 
4069 pie TEST 31 
4070 SLE A ERE E ERE EERE RE RAEEEEERAEERREERERERRERRER RARE 
4071 020104 000004 TST31: SCOPE 
4072 020106 012737 000031 001122 MOV #31,$TSTNM ;LOAD THE NUMBER OF THIS TEST 
4073 020114 012737 020632 001360 MOV #TST32,NEXT ;POINT TO THE START OF THE NEXT TEST 
4074 020122 012737 020536 001362 MOV #18$, LOCK :SET FOR LOOP 
4075 020130 104417 DCLASM CLEAR DEVICE AND SET MAINT BIT IF I MODE 
4076 020132 013701 001366 MOV PAR ,R1 PICK UP PARAMETERS 
4077 020136 012702 000001 MOV #1,R2 :PICK UP_INIT POINTER 
4078 020142 030237 001364 1$: BIT R2.LINE SHOULD THIS LINE BE SET UP ? 
4079 020146 001402 BEQ $ :NO 
4080 020150 010177 161676 MOV R1,@DZLPR SET UP LINE PARAMETERS 
4081 020154 005201 2$: INC R1 POSITION POINTER TO THE NEXT LINE 
4082 020156 106302 ASLB R2 :GOT 
4083 020160 103370 BCC 1$ 7 1F_NO, "60 Sei UP THE NEXT LINE 
4084 020162 005037 001372 CLR SAVLIN [CLEAR LINE # INDICATOR 
4085 020166 012700 001422 MOV #TD0,RO POINT TO THE DATA AREA 
4086 020172 005020 CLR (RO) + CLEAR A DATA WORD 
4087 020174 022700 001462 CMP A#STOP ,RO FINISHED ? 
4088 020200 001374 BNE -~6 : 
4089 020202 005000 CLR RO CLEAR OFFSET 
4090 020204 012702 000001 MOV #1,R2 LINE POINTER 
4091 020210 052777 010040 161624 BIS * #MSENAB!SILOEN,@DZCSR  ;START SCANNER & SET SILO ENABLE 
4092 020216 030237 001364 3$: BIT R2,LINE :VALID LINE? 
4093 020222 001002 BNE +6 7 YES 
4094 020224 000137 020520 JMP 2e$ zTRY NEXT LINE 
4095 020230 013700 001372 MOV SAVLIN,RO sMAKE OFFSET 
4096 020234 006300 ASL RO sMAKE POWER OF TWO 
4097 020236 010277 161614 MOV R2,aDZTCR 4-H TCR BIT 
4098 020242 105777 161574 4$: TSTB aDZCSR ;REC DONE = 1 ? 
4099 020246 1 BPL +4 
4100 020250 104020 ERROR 20 sREC DONE SHOULD NOT = 1 
4101 020252 005003 CLR R3 2 SET CHARACTER COUNT 
4102 020254 005004 5$: CLR R4 
4103 020256 032777 100000 161556 6$: BIT #TRDY ,aDZCSR 
4104 020264 001004 E 7$ 
4105 020266 104414 DELAY 
4106 020270 105204 INCB R4 
4107 020272 001371 BNE 6$ 
4108 020274 104003 ERROR 3 :*TRDY FAILED TO SET 
4109 020276 116077 001422 161562 7$: MOVB TDO(RO),@DZTDR ;LOAD A CHARACTER 
4110 020304. 005260 001422 INC TDO(RO) SET UP NEXT CHARACTER 
4111 020310 020327 000017 CMP R3,415. 216 CHARACTERS ? 
4112 020314 103006 BHIS 
4113 020316 032777 020000 161516 BIT . eM. aDZCSR :SILO ALARM = 0 ? 
4114 020324 001401 BEQ ;YES 
4115 020326 104013 ERROR 3" >*SILO ALARM SHOULD NOT = 1 
4116 [UNTIL 16. DATA CHARACTERS 
4117 020330 000411 BR 10$ 
4118 020332 005004 8$: CLR R4 
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032777 020000 161500 9$: BIT MSILOAL ,aDZCSR 

001004 BN’ 10$ 


:*SILO ALARM FAILED TO SET! 
;SILO ALARM SHOULD =1 AFTER 16. 
;DATA CHARACTERS » 


INC CHAR COUNT 
_—! SENDING CHARACTERS ? 


BNE .~4 
;NOW LETS READ THE SILO 

020374 MOV oe he RS MAKE EXPECTED LINE # 

020400 TSTB E+] :I1S THIS TEST IN STAGGERED MODE? 
BEQ 13$ IF NOT, SKIP STAGGERED SETUP 


WE MUST NOW INVERT THE LAST BIT OF THE LINE NUMBER 


R5 :GET THE LAST BIT INTO THE CARRY BIT 
11$ SIF IT IS SET, GO CLEAR IT 
IF IT IS CLEAR SET IT HERE 
12$ SKIP THE CLEARING 
:CLEAR THE CARRY BIT (INVERSION OF LINE PARITY) 
R5 :GET THE NEW BIT BACK INTO R5 
R5 T IN UPPER BYTE 
A#DVALID,R5S “ADD DATA VALID 
aDZRBUF ,R4 sACTUAL 
R4,R5 — VS. EXPECTED 


15$ 
6 7 *DATA/CONTENTS DID NOT COMPARE 
020000 161372 $ +? ata enacbsain a ALARM= 0 ? 


16 READING DZRBUF DID NOT CLEAR SILO ALARM 
: R5 a CHARACTER 
000077 MPB 1 ta 64TH CHAR 
R5 ;ADD 1 MORE FOR THE CLOBBERED CHAR 
040000 #OVRRUN ,R5 ZADD OVERRUN TO whens ED 
000101 MPB R5 465. LAST CHARACTER 


14$ 
161342 MO @DZRBUF ,R4 FOR GOOD MEASURE 
a :DATA VALID SHOULD 


17 :DATA_ VALID SHOULD 
161340 : R2,aDZTCR :CLR TCR BIT 


OP? 
001372 : INC SAVLIN 2 INC_EXPECTED LINE 
~ NEXT LINE 
* 


020216 JMP 3$ ‘YES 
ADVANCE :GO TO NEXT TEST 
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ohhene SCOPE LOOP FOR THIS TEST. SENDS 20. CHARACTERS 
DZ_LINE PREVIOUSLY SELECTED CONTINUOUSLY WHILE SwO9=1. 
‘USED 16 SCOPE SILO ALARM PULSES, ETC. 


052777 010040 18$: oe eit @DZCSR__; SETUP DEVICE 
020622 MOV #20$,aD ;SETUP TRANSMITTER VECTOR 
000024 #20. ‘Sth. : TEMPORARY COUNT OF CHARACTER BURST 
161272 R2,aDZTC sENABLE LINE 
040000 Pie ,aD2CSR ENABLE cone 
#0 ;LOWER PRIORITY 
: ;ALL OW INTERRUPTS 
001216 $TMPO ;REDUCE COUNT. ALL CHARACTERS SENT? 
19$ :IF NO, WAIT FOR MORE 
050040 IC WSILOEN!MSENAB! TIE, ap7CSR oe SILO COUNTER, CLEAR STROBE 


AGA 
020512 TIF NOT, RETURN TO WHERE YOU LEFT OFF 
000252 MOVB 1082, DITOR i + SEND A CHARACTER 
TALLOW MORE CHARACTERS TO COME 
p Sek eeeee see eee REE RE TEST 32 8 eee eee eee REE 
s*THIS TEST THAT ‘’SILO “pm WILL INHIBIT 
; #RECEIVER INTERRUPTS AND THAT ON THE 
7*16TH CHAR THAT SILO ALARe WILL CAUSE AN 
: * INTERRUPT WITH ‘RIE’ 
rest sis WILL DO ALL SELECTED LINES ONE AT A TIME. 
. 8 
rf DAI IISIIDIIUIIUIOIDIOIIOIISII IOI IDIIUIIOIIOISIOIIIIOIUIDIOIOIUIOIIOIIOIOINIOI IOI 
78132: 
000032 001122 MO #32,$TSTNM ;LOAD THE NUMBER OF THIS TEST 


021214 001360 #TST33,NEAT :POINT TO THE START OF THE NEXT TEST 
020736 001362 MO #3$,LOCK >SET FOR LOOP 


L , 
CLEAR DEVICE AND SET MAINT BIT IF I MODE 
001366 ARAME TERS 
000001 “ 
001364 : ag ;SHOULD THIS LINE BE SET UP ? 


3NO 
161150 ° SET UP LINE PARAMETERS 
2 R1 :POSITION POINTER TO THE NEXT LINE 
iIF NO, GO SET UP THE NEXT LINE 
;CLEAR LINE # INDICATOR 
:POINT TO THE DATA AREA 
( CLEAR A DATA WORD 
se athe : FINISHED ? 


: CLEAR Ad 4 
#1 ,R2 SLINE POINTER 
#118, aDZRIV SET FOR UNEXPECTED INTER. 
000340 V #PR7,@DZRIS SET PRIO. 
052777 010140 062 ‘ #MSENAB!SILOEN!RIE, 8 ry 
: START SCANNER & SET SILO ENABLE 
001364 wo vaoes ts LINE? 
+ 


J YE 
02°°74 22$ TRY NEXT LINE 
161450 aD Z7RBUF SEMPTY THE SILO 
74 :BR_IF DATA VALID 
000000 #0 SET PROCESSOR PRI 
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013700 001372 SAVLIN,RO te OFFSET 
006300 RO MAKE POWER OF TWO 
161040 Nats 7SET TCR BIT 


100000 161014 : #TRDY @DZCSR 


R4 

6$ 

3 :*TRDY FAILED TO SET 
161020 : MOVB TDO(RO),@DZTDR ;LOAD A CHARACTER 

TDO(RO) 7 SET UP NEXT CHARACTER 
001422 MP neo 315 CHARS YET? 
160752 ne onesies Ay ALARM = 0 ? 

+ 


13 :*SILO ALARM SHOULD NOT = 1 
TUNTIL 16. DATA CHARACTERS 


5$ 
160766 : #12$,aDZRIV ;SET NEW VECTOR 
160730 #TRDY ,aDZCSR READY FOR 16TH CHAR 


--6 
160744 Stet atin ;LOAD THE 16TH CHAR. 
160710 : MSILOAL ,aDZCSR 

10$ 


Wron— 


RUSKENRV AD 


211 
1 
1 
1 
1 
211 
1 
1 
1 


:*SILO ALARM FATLED TO SET! 
$ SILO ALARM SHOULD =1 AFTER 16. 
{DATA CHARACTERS 


R4 
9$ 
4 
0211 7 


° 


:SILO ALARM NOT INTERRUPTING. 
17$ CONTINUE TEST. 

(SP)+,(SP)+ FAKE RTI 

12 RX SHOULD NOT INTERRUPT 

17$ ; CONT INUE 


: CMP (SP) +, (SP)+ :GOOD_ INTERRUPT TO HERE. 
160664 : R2,aDZTCR ‘thorn BIT 


001372 : SAVLIN ZINC EXPECTED LINE 
R2 XT LINE 


+6 : 
021204 000137 020736 3$ YES 
021210 001362 LOCK :CLEAR TIGHT LOOP FOR NEXT TEST 
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005777 
100401 
104003 
117703 


000033 
022022 


00000 

001364 
160566 
001422 
001462 


021542 
000340 
021444 

340 


021442 
006722 
021402 


022020 


021720 
021442 


021772 


160372 


160364 
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001122 
001360 


022020 


160556 
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seenekeaeereeeereaeeeaeee TEST 33 xananraaeaeataataaneaeeannenee 
zsTuls TEST RUNS ALL LINES FULL BORE 

BASED UPON QUALIFIED LINES 

. THIS iene INTERRUPT TEST ON THE RECEIVER AND 


FARRAR RE RERAREAERARERERREREEAEEREEREREERERER EEE 


«TRANSMIT 
zi8 TEST 33 
1S$133: SCOPE 

MOV #33, $TSTNM 

V #TST34,NEXT 

DCLASM 

MOV LINE ,RXTCR 
RSTART: MOV PAR ,R1 

MOV #1,R0 
INIT: BIT RO,LINE 

BEQ 1$ 

MOV R1,@DZLPR 
1$: INC 

ASLB RO 

BCC INIT 


MO 
INIT1: CLR (RO) + 


CMP #STOP ,RO 
BNE NIT1 
MOV ARXSVC ,aDZRIV 


BIS #MSENAB ,@DZCSR 
VB LINE, a@DZTCR 
MTPS a“LESsi 
SNAP : CLR 66$ 
67$: MOV DLYCNT, (PC) + 
68$: 0 
DEC 68$ 
E 74 
TSTB RXTCR 
BNE 3$ 
JMP OUT 
3$: INC 66$ 
BNE 67$ 
ERROR 
ERROR 11 
J FINI 
66$: 


TRANS INTR SVC ROUTINE 
TXSVC: a aDZCSR 


.+4 
ERROR 3 
MOVB @HDZCSR,R3 
;NOW TEST FOR LINE # ETC 


;LOAD THE NUMBER OF THIS TEST 

sPOINT TO THE START OF THE NEXT TEST 
:CLEAR DEVICE AND SET MAINT BIT IF I MODE 
:SET IMAGE OF TCR BITS 

:PICK UP PARAMETER 

:sPICK UP INIT POINTER 

SHOULD THIS LINE BE SET UP 


‘SET UP LINE PARAM REGISTER 

:GOT "EM ALL ? 

[CLEAR TRANS DATA POINTER & REC POINTERS 
sFINISHED ? 

:NO, CONTINUE CLEARING 

iSet UP REC INTR VECTOR 

'SET UP TRANS INTR VECTOR 

TATUS 

;SET REC INTR ENABLE 
*SET TRANS INTR ENABLE 

:SET MASTER SCAN ENABLE 


SET TCR BITS...UP UP AND AWAY ! 
;ALLOW INTERRUPTS 


:SET FOR DELAY 


zsWAIT FOR ALL RECIEVERS TO FINISH 


;* TRANSMITTER FAILED TO INTERRUPT 
:*RECEIVER FAILED TO INTERRUPT 


TRANS INTR ? 
7 * TRANSMITTER FAILED 
AVE IT 


SEQ 0088 
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104005 
005263 


177770 
001372 
000001 


001364 
001422 
001422 


160316 


160274 
160270 


177770 
001372 
020000 


070000 


000001 


001364 


001372 
001442 


001442 
177400 


001442 
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160340 


160242 


3$: 


4$: 


5$: 


sREC INTR SVC 
RXSVC: B 


5$: 


6$: 


2$: 


11:06 


#*°C<7>,R3 
R3,R4 
the 


Sd 


TDO(R4) 
5$ 
R2,aDZTCR 


ROUTINE 


aDZCSR 

+4 

4 

@DZRBUF ,R4 
R4,R3 


R 
#*°C<7>,R3 
R3,SAVLIN 


iL 


R 
TDO(R4) ,aDZTOR 


#SILOAL ,aPZCSR 
+4 


R4 
+4 


He JUNK 


3 SAV! 

ZADJUST LOCATION FOR ERROR PRINTOUT 
SET UP_POSITION POINT ER 

1S IT THIS LINE ? 


OUND 
VALID LINE? 


;YES 
:NO, INVALID LINE! !!! 
MAKE POWER OF 2 
[LOAD CHARACTER 
SET _UP NEXT CHARACTER 
ZLAST CHARACTER ? 
7YES ,CLEAR TCR BIT 


REC DONE ? 


:YES 
FALSE INTERRUPT 
AVE IT 


. 
e 


STRIP JUNK 


SAVE LINE NUMBER 
:SILO ALARM? 


:NO 
:SILO ALARM SHOULD NOT =1 
DATA VALID SET? 


«DATA VALID WAS'NT SET 


2 YES 
YOU LOSE .. 


23 
HOVRRUN! FRMERR!PARER, 2R4 


1 

2 80S 
TRO(R3) ,R4 
2s 


TRO(R3) RS 
#*C<377>,R4 


5 
TRO(R3) 


iR 
RS 


sRECEIVER ERROR FLAG/S WERE SET 
[SET UP POSITION POINTER 


eRE POSITION — 


e cs 

: INVALID LINE # 

GET THE LINE NUMBER AGAIN 

SUSE _R3 AS A POINTER IN THE DATA TABLE 
re THE DATA CHARACTER COMPARE ? 


: SAVE a 
;CLEAR J 


= LINE # BY ahd POSITION 
= ACTUAL DATA 
2R5 = EXPECTED DATA 
:*NO, DATA DOES NOT COMPARE 
[SET UP FOR NEXT CHARACTER 


SEQ 0089 


M 7 
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4390 021700 105763 001442 TSTB TRO(R3) ;ALL CHARS DONE? 
4391 021704 001002 BNE +6 
4392 021706 040237 022020 BIC R2,RXTCR zZERO_ LINE DONE INDICATOR. 
4393 021712 012716 021372 MOV W#SNAP , (SP) RESET THE BACKGROUND TIMING LOOP 
4394 021716 000002 RTI 
4395 
43% 
4397 :FINISH UP ROUTINE 
4398 021720 106427 000340 OUT: MTPS #PR7 ;STOP_ALL INTERRUPTS 
4399 021724 104413 DEVICE.CLR ;CLEAR ALL INTERRUPTS AWAY 
4400 021726 005003 CLR R3 
4401 021730 005037 001372 CLR SAVLIN 
4402 021734 012702 000001 MOV #1,R2 
4403 021740 030237 001364 1$: BIT R2.LINE :VALID LINE ? 
44 021744 001405 BEQ 
44 021746 022763 000400 001442 CMP #400, TRO(R3) {RECEIVED A BINARY COUNT PATTERN ? 
4406 021754 001401 BEQ .+4 ;YES 
4407 021756 104027 ERROR 27 THE LINE aa hae TO RECEIVE A FULL 
4408 BINARY COUNT PATTERN 
4409 021760 005237 001372 2$: INC SAVLIN SET UP FOR NEXT LINE 
4410 021764 005723 TST (R3)+ ZADD 2 
4411 021766 106302 ASLB Re :SET UP TT LINE POINTER 
4412 .021770 103363 BCC 1$ ;F INISHED 
4413 021772 FINI: 
4414 021772 013777 002074 160072 MOV DZRIS,aDZRIV RESTORE TRAPCATCHER 
4415 022000 005077 160070 CLR aDZRIS 
4416 022004 013777 002100 160064 MOV DZTIS,aDZTIV 
4417 022012 005077 160062 CLR adZTIS 
4418 022016 104400 ADVANCE :GO TO THE NEXT TEST 
rent 022020 000000 RXTCR: O RX IMAGE OF TCR BITS 
4421 
4422 pekeakaaexereereaeeaiKk TEST 34 exam eee eee eee eee eee eee keene 
4423 7*DZ11 RELATIVE TIMING TEST. 
4424 > *EACH gy: Aly WILL IN TURN RUN 16. CHARS 
4425 ;*AT_ALL BAUD RATES AND THEN THE HIGHEST BAUD 
4426 > *W1TH ALL CHAR LENGTHS. EACH NEW PARAMETER SHOULD 
4427 7*DECREASE IN TIME FROM THE PREVIOUS PARAMETERS SELECTED. 
4428 :*THE TIME IS CHECKED AGAINST THE LAST PARAMETER USED 
at, i AND erent an _ IS EXPECTED ON THE CURRENT PARAMETER. 
: 
4431 :* EIGHT ve! eh - ~ STOP BITS A 
4432 3@ 50, 75, 110, 134.5, 150, 300, 00. 1200, 1800, 2000 
4433 i 2460, $600, "4800, 7200, "9600 BAUD. 
4434 :* 19.2 K BAUD = TWO STOP BITS AT 
4435 : SEVEN, SIX, Ay BITS/PER/CHAR. 
4436 < *AFTER EACH LINE HAS FINISHED ALL THE ABOVE PARAMETERS 
4437 >*THE NEXT SELECTED LINE IS THE TESTED. 
4438 zi TEST 34 
4439 AOI III IIIS III IIIOIIIOIIUIUIIOIIOIDIUIIOIOIUIOIUIO IOI filtot 
4440 022022 000004 TST34: SCOPE 
4441 022024 012737 000034 001122 MOV 434 ,.$TSTNM LOAD THE NUMBER OF THIS TEST 
4442 022032 012737 000002 001226 MOV #2, $TIMES 
4443 022040 012737 022532 001360 MOV #15735 NEXT :POINT TO THE START OF THE NEXT TEST 
4444 022046 012737 022172 001362 #3$,LOCK 


6 MOV SET FOR LOOP 
4445 022054 005037 023766 CLR OFFSET RESET THIS VARIABLE 
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001372 
001374 


spiel 
10070 
001216 


001 
Ose 


216 
530 
001364 


022530 


022530 
022530 


022530 
157642 
001370 


022530 


022426 


#1 


,STMPO USE $TMPO 
#RCVON' $50 !EIGHT! TeOSTOP, 7$ 
$TMPO, LINE 


RESET LINE NUMBER INDICATOR 
SUSE THIS WORD TO Fhe iren LINE TRANSMITTED 


AS A A BIT 

BUILD TEMPORARY PARAMETERS 

:1$ THIS “LINE ACTIVE? 
GO GET ST 


0, ARTED 
MRCYON:S50!€1GHT! TwoSTOP,7s 27$ ;LOAD PARAMETERS TEMPORARILY 


(RO) + 
#STOP ,RO 
~6 


XMTLIN 
#7 ,7$ 
XMTLIN, 7S 


OF FSET 
$STMPO 
1$ 


99$ 

7$ 
#RCVON,7$ 
7$,@DZLPR 


7$,SAVLIN 
#*C<7>,SAVLIN 
#7 7% 


#RXISR1 .A@DZRIV 


DZPRT ,aOZRIS 
DZPRT.aDZTIS 


$STMPO ,aDZTCR 
oi tt Ae 'MSENAB, aDZCSR 


#RIE,@DZCSR 
5$ 


sPOINT TO THE DATA AREA 
i CLEAR A DATA WORD 
FINISHED ? 


NO 

:POINT TO THE NEXT LINE TO TRANSMIT 

;MAKE SURE TEMPORARY PARAMETERS POINT TO 0 
z:ADD DESIRED LINE NUMBER 

POINT TO THE NEXT LINE 

sPROCESS THE NEXT LINE 

: TEST TO SEE IF THIS TEST GETS REPEATED 


CLEAR DEVICE AND rt Ray BIT IF I MODE 
7ZERO PARAMTERS FOR TX LINE 

;LOAD PARAMTERS FOR TX 

; STAGGERED? 

;BR_IF NO 


2 SET UP LINE 


BR IF LINE WAS EVEN 
a OanT Teal TO MKE LINE EVEN 


CONT INUE 

PREPARE TO MAKE LINE ODD 
SET ALTERED LINE 

TSET RX ON 


;LOAD RX PARAMETERS 
ZADJUST LOCATION FOR ERROR PRINTOUT 
7STRIP JUNK 


J 

CLEAR OLD LINE # 

7SET LINE UP AGAIN 

SAVE PARAMETERS FOR PRINTOUT 
SPOINT TO THE DATA AREA 

CLEAR A DATA WORD 
iFIN ISHED ? 
USE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS 
;USE_R3 TO — TOTAL NUMBER OF RECEPTIONS 
INITIALIZE THE TIMER 

Z INITIALIZE THESE BITS ALSO 

;SET HOW MANY CHARACTERS TO TRANSMIT 


START THE VALID LINE 


sLOWER THE PRIORITY TO ALLOW INTERRUPTS 
‘Ts ROUTINE DONE? 
WHEN ALL IS DONE RX IE IS CLEARED IN ISR. 
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4502 022430 005237 001220 INC STMP1 ;COUNT TIME 
4503 0224 001371 BNE 4$ ; CONTINUE TEST 
4504 0224 ee $34 001224 INCB STMP3 2D E COUNT 
4505 055405 001 BNE 4$ ; CONTINUE TEST 
4506 2444 104011 ERROR 11 ; INTERRUPTS NOT FINISHED 
4507 022446 004737 007360 5$: JSR PC,SERV.G <4 G>? 
4508 022452 104401 ae: SCOP1 ; LOOP? 
022454 sg EN 000002 023766 ADD #2,0F FSET 
4510 022462 013700 022530 MOV 7$,R0 
4511 022466 042700 170377 BIC #*°<1726400> R20 
4512 022472 022700 007400 Cie #<17%400>,R0 
4513 022476 001010 BNE 6$ 
4514 022500 032737 020030 022530 BIT #B1T4+B1T3,7$ 
4515 022506 001602 BEQ 2s 
4516 022510 162737 000010 022530 SUB #B1T3,7$ 
4517 022516 000625 BR 3$ 
4518 022520 062737 000400 022530 6$: ADD #400,7$ 
4519 022526 000621 BR 3$ 
4520 022530 000000 7$: 0 
4521 pxtaakkataakeeaeeeerkaaan TEST 35 RARER EREREEREEERREREERE RE 
4522 :* nny TEST VERIFIES THAT EVEN PARITY WORKS 
4523 ;* ALL ODD LINES SELECTED AND THAT ODD PARITY WORKS FOR ALL 
4526 3* EVEN yt SELECTED. 
4525 "THE MAI FUNCTION OF THIS TEST IS TO VERIFY 
4526 * THAT wee (PARITY ERROR) CAN BE FLAGGED BY 
4527 i *THE UARTS. THIS TEST WILL NOT BE DONE UNLESS 
4528 OU ARE IN ‘STAGGERED’ Re 
4529 5 3L0t8) CHARS ARE USED FOR THIS TEST. 
4530 sSALL SELECTED LINES WILL BE ENABLED 
4531 *AT THE SAME TIME! 
4532 zi8 Tes? 35 
4533 LARA ERTRERERERERERERREEERERRERRERREREERREREE REE 
4534 022532 000004 1135: SCOPE 
4535 022534 012737 000035 001122 MOV #35 .$TSTNM ;LOAD THE NUMBER OF THIS TEST 
4536 022542 012737 022772 001360 MOV #TST36, NEXT :POINT TO THE START OF THE NEXT TEST 
£537 022550 005737 001370 TST MODE 71S THIS STAGGER' ED MODE? 
4538 022554 100105 BPL 6$ TIF NOT, DON'T DO THIS TEST 
4539 022556 104417 DCLASM 7 CLEAR DEVICE AND SET MAINT BIT IF I MODE 
4540 022560 013701 001366 MOV PAR ,R1 USE R1 TO BUILD PARAMETERS TO BE LOADED 
4541 022564 042701 000200 BIC #ODDPAR ,R1 ;MAKE SURE ODD PARITY ISN'T SET 
4542 022570 (52701 000100 BIS #PARITY,R1 sMAKE SURE PARITY IS TURNED ON 
4543 022574 012702 000001 MOV #1,R ;USE R2 AS A LINE POINTER 
2690 050227 001364 1$: BIT R2,LINE 71S THIS A VALID LINE? 
4545 022604 001411 BEQ :1F NOT, SKIP TO THE NEXT LINE 
022606 032701 000001 BIT #81T0,R1 71S THIS LINE AN ODD LI 
4547 022612 001002 BNE 2s IF IT'S ODD, USE EVEN PARITY 
4548 (22614 052701 000200 BIS #ODDPAR ,R1 :IF IT'S EVEN, USE ODD PARITY 
4549 (022620 010177 157226 2$: MOV R1,@DZLPR ;LOAD THE LINE tyes hey REGISTER 
4550 022624 042701 000200 BIC M#ODDPAR ,R1 :SET UP THE NEXT PARITY TO EVEN 
4551 422630 005201 3$: INC R1 :POINT TO THE NEXT LINE 
4552 022632 106302 ASLB R2 sMOVE THE BIT POINTER IN , TO THE ~ LINE 
4553 022634 103361 BCC 1$ TIF WE'RE NOT DONE, CHECK THE NEXT LINE 
4554 022636 005037 001372 CLR SAVLIN :CLEAR_ THE LINE NUMBER INDICATOR 
4555 022642 005002 CLR R2 ;USE R2 TO COUNT TOTAL NUMBER OF TRANSMISSIONS 
4556 022644 005003 CLR R3 ;USE R35 TO COUNT TOTAL NUMBER OF RECEPTIONS 


4557 022646 012737 000040 001376 MOV #40, XMTCNT ; TRANSMIT A BINARY COUNT PATTERN(00-40) 
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001422 #TD0,RO :POINT ty THE DATA AREA 
(RO)+ Ayr A_DATA WORD 
es 7F INISHE 


° =NO 

;CLEAR_ OFFSET 
AXMTSRV ,@DZTIV 3SET UP THE TRANSMITTER INTERRUPT VECTOR 
ta oF @OZRIV ;SET UP _THE RECEIVER INTERRUPT VECTOR 
DZPR T.@OZRIS 3SET THE INTERRUPT VECTOR STATUS 
DZPRT ,@DZTIS SET TRANSMITTER INTERRUPT PRIORITY 
PRIE | TIETMSENAB, aD7cSR sENABLE THE DEVI“ 
LINE ,aDZTCR ZENABLE ALL a LINES 


#0 : 

ARIE ,@DZCSR sWHEN RX DONE; RIE WILL =0 

6$ 7BR IF ALL DONE 

COUNTO 

5$ 

— 

11 z*RX FAILED TO FINISH (INTERRUPT) 
ADVANCE LOOP 


TeerTTTi iii ittititt iti ts TEST 36 eee eee eee eee ekeee 
*THIS TEST VERIFIES THAT ODD PARITY WORKS FOR ALL ODD LINES 
* yg ey AND THAT CVEN PARITY WORKS FOR ALL EVEN LINES SELECTED 
seTHE MAIN, FUNCTION OF THIS TEST 1S TO VERIFY 
: PE*’ (PARITY ERROR) CAN BE FLAGGED BY 
HATE WARTS. THIS TEST WILL NOT BE DONE UNLESS 
OU ARE IN ‘‘STAGGERED'' g. 
£54008) CHARS ARE USED FOR THIS TEST. 
;*ALL SELECTED LINES WILL BE ENABLED 
8A AT THE SAME TIME! 
;3* TEST 36 


SEERA REEARKEEREREEAEEREKKKEAKEREAERAREKEEEEREREKREKREREEKRKEKKKE 


005003 
012737 


000040 001376 


18136: 


#36 ,STSTNM 
#SEOP ,NEXT 
MODE 


6$ 

PAR ,R1 
MODDPAR ,R1 
#PARITY,R1 
#1,Re 

ag te 
#81T0,R1 
2s 

#ODDPAR ,R1 
R1,@DZLPR 
#ODDPAR ,R1 
R1 

R2 


1$ 
SAVLIN 
Re 


R3 
#40, XMTCNT 


;LOAD THE NUMBER OF THIS TEST 

;POINT TO THE END-OF-PASS HANDLER 

21S THIS STAGGERED MODE? 

;1F NOT, DON'T DO THIS TEST 

:CLEAR SEVICE AND SET MAINT BIT IF I MODE 

;USE_R1 +O BUILD PARAMETERS TO BE LOADED 
E SURE ODD PARITY ISN'T me 


, USE ODD PARITY 

PARAMETER REGISTER 

;SET UP_THE NEXT PARITY TO EVEN 

POINT TO THE NEXT LINE 

MOVE THE BIT POINTER IN A TO THE NEXT LINE 
CHE Fearon NEXT LINE 


OF TRANSMISSIONS 
;USE R35 TO COUNT TOTAL NUMBER OF RECEPTIONS 
; TRANSMIT A BINARY COUNT PATTERN(00-40) 
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012700 
005020 


001422 
001462 


26-NOV-79 


156632 5$: 


6$: 


11:06 


ERROR 
ADVANCE 


#TD0,RO 


LINE ,aDZTCR 
#0 

ARIE ,@DZCSR 
6$ 

COUNTO 

5$ 

COUNT 1 

5$ 

11 


PAGE 95 
CZDZA DZ11 DEVICE DIAGNOSTICS. 


:POINT TO i DATA AREA 
A WORD 


CLEAR A DAT 
FINISHED ? 
:NO 

7CLEAR OFFSET 


SET UP THE TRANSMITTER INTERRUPT VECTOR 
:SET UP THE RECEIVER il as VECTOR 


SET THE INTERRUPT VECTOR STATUS 
SET TRANSMITTER INTERRUPT PRIORITY 


PRT ,@0ZT1S 
PRIE TLE TMSENAB, @D2CSR_ ;ENABLE THE DEVICE 


;ENABLE ALL SELECTED LINES 


ZALLOW INTERRUPTS 
WHEN 


RX DONE; RIE WILL =0 


‘BR IF ALL DONE 


:*RX FAILED TO FINISH (INTERRUPT) 
ADVANCE LOOP 


SEQ 0094 
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RECEIVER SERVICE ROUTINE(PARITY TEST ONLY) 


156610 : @DZRBUF ,R4 :GET THE CHARACTER 
MO R4,R1 = COPY THE RECEIVED INFORMATION 
GET THE LINE NUMBER IN 


R1 THE LOWER BYTE 
177770 #*C<7>,R1 SISOLATE THE LINE NUMBER 
001372 R1,SAVLIN FILL LOC. FOR ERROR PRINTOUT 

R4 :WAS DATA VALID? 

10$ BRANCH IF YES 

23 ERROR = DATA VALID NOT SET! 

R1 ALIGN IT ON A WORD BOUNDARY 

MPARER ,R4 apg iy ERROR SHOULD BE SET. IS IT? 

11$ F SO, GO CHECK CHARACTER 

yr heen 7SET UP FOR THE ERROR MESSAGE 


RGR 
#377, RS 

),R5 ZGET THE CORRECT CHARACTER 
SDVALIDIPARER, RS” ;BUILD WHAT WAS EXPECTED 
* :*ERROR- DID NOT GET CORRECT INFORMATION 
TRO(R1) RG [CHECK THE CHARACTER. IS IT CORRECT? 
12$ :1F SO, GO SET UP NEXT CHARACTER 
TRO(R1) RS “LOAD THE CHARACTER FOR ERROR REPORTING 
#*C<377>,R5 [CLEAR SIGN EXTEND 
#°C<377>._RG [REMOVE THE JUNK FROM R4, THE ACTUAL CHARACTER 
5 [DATA ERROR 
TRO(R1) ZSET UP THE NEXT CHARACTER 
R3 [ADD TO THE TOTAL RECEIVED COUNT 
COUNTO [RESET COUNTERS TO NEXT 

[RECIEVER INTERRUPT 


COUNT 1 
156454 #TIE,aDZCSR SARE TRANSMISSIONS DONE? 
13$ IF NO, GO RECEIVE SOME MORE 
R2,R3 ARE ALL CHARACTERS RECEIVED? 
BN 13$ 31F NO, RECEIVE SOME MORE 
156440 ARIE, ADZCSR ;DISABLE RECEIVER INTERRUPTS 
1 :GO BACK TO RECEIVER WAIT LOOP 


; TRANSMITTER INTERRUPT SERVICE 


156430 : @HDZCSR,R1 GET THE LINE NUMBER. IS THE TRANSMITTER 
BM 1$ REALLY READY? IF SO, GO LOAD THE CHARACTER 
001372 SAVLIN,RO 


177770 #*C<7>,R1 


001372 MO R1,SAVLIN ;FOR ERROR PRINTOUT 
3 :* TRANSMITTER NOT READY- FALSE INTERRUPT 
001372 MO RO,SAVLIN RESET ~~ TO PREVIOUS VALUE 
177770 1$: a <7>,R1 : ISOLATE THE LINE NUMBER 

[MAKE SURE IT REFERENCES A WORD BOUNDARY 
001422 156412 #D0(R1) -aDZTDR ;LOAD THE CURRENT CHARACTER FOR THIS LINE 
001422 INC TDO(R1) :SET UP NEXT CHARACTER FOR THIS LINE 


ITTITITT ITIL ITIL TTL T TTL LLL TELE TLE LLL 
(REV. FO: DELETED INC 





CZDZ2A-F 0 
CZDZAF .P11 


023514 
023522 
023524 


023526 
023534 
023540 
023544 


023550 
023552 
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023761 001376 
pieced 000001 


012737 000004 
006037 001224 
006037 001220 
005337 001222 


001371 
000207 
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001422 


156320 


001222 


11:06 


F 8 
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REERRAERAREEEEREERAERAREREREREERAAERAKRAREEEEREAERERERARRHRERERREEE 


2$: 


3$: 


Hage denigteame re “ DONE + Taaenatt ing THIS LINE? 


:1F NOT, KEEP ON TRANSMIT 
#1,R0 iSET 7S A DESELECTION POINTER 

R1 [GET THE LINE NUMBER AGAIN 

R1 : REDUCE THE COUNT. WAS THIS THE LINE? 

3$ JF DISABLE THE ENABLE BIT FOR IT 

RO MOVE "nen POINTER TO THE NEXT LINE 

2$ “GO CHECK THE NEXT LINE 

RO,aDZTCR “DISABLE THE LINE POINTED TO BY RO 

4$ TIF MORE LINES ARE ACTIV CONTINUE TRANSMIT 


ATIE,aDZCSR SIF NOT, DISABLE T TRANSMITTER 1 INTERRUPTS 


PITITIIIITISTIISITIISICTTCITTTITTLITT TIT TELE LE LE EEL LET EEE Een 


4$: 


INC 


R2 ;UP THE NUMBER OF TRANSMISSIONS (REV. FO) 


FRA REE EEERAEREE EERE EEKEREEKEREERKEREEREERRRERERERERRERE 


BUILD: 
1$: 


RTI 


RETURN TO THE TIMING LOOP 


: RELATIVE TIME BUILDING ROUTINE 


#4, STMP2 sROTATE 4 BITS BACK INTO STMP1 
$TMP3 GET THE BITS FROM $TMP3, THE HIGH BYTE 
$TMP1 OF THE RELATIVE TIME COUNTER. PUT THEM BACK 
STMP2 ZINTO $TMP1 USING THE CARRY BIT WITH 

ROTATE INSTRUCTIONS 
1$ sREDUCE COUNT. ALL BITS BACK? IF NOT, GET MORE 
PC RETURN TO CALLING TEST 


SEQ 0096 


CZ0ZA~ 


FO 
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023554 
023560 


26-NOV- 


MACY11 30A(1052) 
79 11:03 
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156262 
156256 
070000 
002046 


177770 


G 8 
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001442 


002102 


001220 


156056 
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RECEIVER SERVICE ROUTINE 
RXISR1: TSTB @DZCSR 
BMI 1$ 


IF SO, GO SERVICE IT 
ERROR 4 ;*ERROR= RECEIVER DONE FLAG ISN'T SET 
1$: MOV @DZRBLF ,R4 SAVE THE RECEIVER INFORMATION 
BMI 2$ :1F IT WAS VALID, GO PROCESS IT 
ERROR 23 ;ERROR= DATA VALID WASN'T SET 
2s: BIT #OVRRUN! FRMERR!PARER,R4 ;ARE ANY ERROR FLAGS SET? 
BEQ 3$ 1F NOT, GO CONTINUE PROCESSING 
MOV DZRBUF ,RO 7SET UP FOR ERROR REPORTING 
ERROR 2 SERROR- RECEIVER ERROR FLAG SET 
3$: MOV R4,R1 :COPY THE RECEIVER INFORMATION 
SWAB R1 GET THE LINE NUMBER IN THE LOWER BYTE 
BIC #*C<7>,R1 ISOLATE THE cr NUMBER 
ASL R1 SALIGN IT ON A D BOUNDARY 
CMPB R4,TRO(R1) :1S THE CHARACTER WHAT IT SHOULD BE? 
BEQ 4$ :IF $0,GO CONTINUE PROCESSING 
MOVB TRO(R1) ,R5 T WHAT WAS EXPECTED FOR ERROR REPORTING 
BIC #*C<377>,R5 [ELIMINATE PROPAGATED SIGN 
BIC #*C<377>,R4 ISOLATE THE ACTUAL CHARACTER 
MOV R1,SAVLIN [GET THE LINE NUMBER OF THE RECEIVER ERROR 
ASR SAVLIN SALIGN IT CORRECTLY FOR REPORTING 
ERROR 5 : *DATA_ERROR 
4$: INC TRO(R1) 7SET UP THE NEXT EXPECTED CHARACTER 
INC R3 ; INCREMENT THE COUNT OF RECEIVED CHARACTERS 
BIT #20, TRO(R1) SHAVE ALL CHARACTERS BEEN RECEIVED? 
BEQ 5$ :I1F NOT, GO RECEIVE SOME MORE 
CMP R2,R3 HAVE WE RECEIVED ALL CHARACTERS? 
BEQ 6$ IF SO,GO DETERMINE THE TIMING 
5$: RTI :GO CONTINUE TIMING AND ALLOW INTERRUPTS 
6$: JSR PC,BUILD 7GET THE RELATIVE TIME (SIGNIFICANT BITS) 
MOV OFF SET,RO :GET POINTER 
MOV STMP1,TMTBL(RO) ; tot THIS 5 lEST'S TIME 
TST OFFSET sFIRST TEST? 
BEQ 7$ 7IF NOT, GO CHECK THE TIME 
TST -(RO) [POINT TO THE PREVIOUS TIME TAKEN 
CMP TMTBL(RO),$TMP1 ;1S THIS TIME WHAT IT SHOULD BE? 
BHI 7$ IF SO, GO TO THE NEXT TEST 
MOV TMTBL (RO) ,R5 PLACE WHAT WAS EXPECTED IN RS 
MOV R1,SAVLIN 2GET THE LINE NUMBER OF THE RECEIVER 
ASR SAVLIN MAKE SURE IT'S THE LINE NUMBER 
ERROR 21 > TIMING ERROR 
7$: BIC WRIE'MSENAB,@DZCSR ;DISABLE THE DEVICE 


RTI RETURN TO THE PROGRAM 
OFFSET: O 


71S THE RECEIVER REALLY READY? 


SEQ 0097 
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30211 ECHO/CABLE TEST 
ae fee PROCEDURE 
OAD PR 


*L AM 

 #LOAD at 000210 

:*PRESS STAR 

; *PROGRAM BILL TYPE DZ11 ECHO/CABLE TEST 

:*PROGRAM WILL TYPE WHICH TEST- ECHO OR CABLE 

:*TYPE IN E OR C RESPECTIVELY 

; *PROGRAM WILL TYPE ‘VECTOR ADDRESS-"' 

:*TYPE_IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 

+ *FOR THE DZ11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
;*PROGRAM WILL TYPE ‘CONTROL REGISTER ADDRESS-"" 

:*TYPE_IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 

:*FOR THE DZ11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
> *PROGRAM WILL TYPE ‘LINE NUMBER-"' 

:*TYPE IN THE LINE NUMBER TO BE TESTED (IN OCTAL) 

i sF OLL OWED BY po gd ay RE TURN> 


> 
3 * THE in amie BAUD RATES ARE ACCEPTED IN DECIMAL 
75 
110 
13a (ROUNDED OFF 134.5) 


: 9600 
"*ALL OTHERS ARE REJECTED 
7*PROGRAM WILL TYPE "ECHO'’ OR ‘'CABLE TEST'’ TO INDICATE THAT TESTING HAS STARTE 


PROGRAM INITIALIZATION 

:LOCK OUT INTERRUPTS 

SET UP PROCESSOR STACK 

SET UP POWER FAIL VECTOR 
;CLEAR PROGRAM FLAGS AND COUNTS 


023770 : MOV AMSTACK , SP SET UP PROCESSOR STACK 
1 7 M #PR7 :LOCK OUT. INTERRUPTS 
001126 #XSTART,$LPADR ;SET UP_IN CASE OF POWER FAIL 
rte :CLEAR TEST START FLAG 


SERTTL ; 
SERFLG [CLEAR ERROR FLAG 
024026 5037 026170 LAST ;CLEAR LAST ERROR PC 
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032777 000001 155120 vEC1: BIT #SWO0, aSWR :IF SWOO=1, GET NEW VECTOR 
001465 BEQ OTHER SAND CSR 
012701 000300 VEC2: MOV #300,R1 
012702 000302 MOV #302.R2 
010221 1$: MOV R2,(R1)+ :RESTORE TRAPCATCHER 
005022 CLR (R2)+ tIN FLOATING VECTOR AREA 
022122 CMP (R1)+, (R2)+ [UPDATE THE POINTERS 
020127 001000 CMP R1,4#1000 
001372 BNE 1$ 
104403 INSTR INPUT ADDRESS OF DEVICE VECTOR 
026216 MVECTOR “MESSAGE "VECTOR ADDRESS-"' 
104405 PARAM “CONVERT STRING TO OCTAL 
300 300 SLOW LIMIT 
770 770 ‘HIGH LIMIT 
002072 DZRIV ‘LOCATIONS TO BE FILLED 
003 BYTE [LSB MASK 
"BYTE ‘NUMBER OF LOCATION 
104403 INSTR INPUT ADDRESS OF DEVICE CSR 
026240 MREGAD [MESSAGE ‘CONTROL REGISTER ADDRESS-"' 
104405 ‘CONVERT STRING TO OCTAL 
160000 [LOW LIMIT 
163700 163700 [HIGH LIMIT 
2042 DZCSR SLOCATIONS TO BE FILLED 
007 .BYTE 7 ‘LSB MASK 
001 ‘BYTE 1 “NUMBER OF LOCATIONS 
013737 002042 002046 MOV DZCSR,DZRBUF | :BEGIN BUILDING DEVICE ADDRESSES 
062737 000002 002046 ADD #2, DZRBUF [FORM THE READ BUFFER ADDRESS 
013737 002046 002052 MOV DZRBUF,DZLPR § :REMEMBER THAT THIS IS ALSO LINE PARAMETER REG. 
013737 002046 002056 MOV DZRBUF.DZTCR § :BEGIN BUILDING TRANSMITTER CONTROL REGISTER 
062737 2 002056 ADD #2,DZTCR [FORM THE TRANSMITTER CONTROL REGISTER POINTER 
013737 002056 002060 MOV D2T CR, HDZTCR 
005237 002060 INC HDZTCR 
013737 002056 002066 MOV DZTCR,DZTDR ;BEGIN FOPMING TRANSMITTER DATA REGISTER 
062737 2 002 ADD #2,DZTDR ‘FORM THE TRANSMITTER DATA REGISTER 
013737 002066 002062 MOV DZTDR,DZMSR 
032777 2 154736 OTHER: BIT #SWO1 .aSwWR sRESELECT OF TEST? 
001427 BEQ XBEGIN :IF NOT, SKIP ASKING WHICH ONE 
104403 INSTR ‘INPUT WHICH TEST YOU ARE RUNNING 
026424 MwWHICH TECHO OR CABLE 
104416 PAWCH “SET FLAG 
026162 WCHFLG :THIS FLAG 
104403 BAUD: INSTR TINPUT BAUD RATE 
026346 MSPEED [MESSAGE ‘BAUD RATE-"' 
104415 P [CONVERT DECIMAL STRING TO OCTAL 
50. SLOW LIMIT 
022600 9600. [HIGH LIMIT 
026200 tee LINE SP :LOCATION TO BE FILLED 
.BY : 
001 "BYTE 1 ‘NUMBER OF LOCATIONS 
104413 L INEX DEVICE. CLR [CLEAR DEVICE 
005037 026164 CLR STFLG *CLEAR PROGRAM START FLAG 
10440 INST INPUT LINE NUMBER 
026336 ML INE [MESSAGE "LINE NUMBER-"' 
104405 PAR ‘CONVERT STRING TO OCTAL 
000000 0 [LOW LIMIT 
000007 7 ‘HIGH LIMIT 


I 8 


SEQ 0099 
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024272 


024376 


024402 
0244 


0245 

024544 
024552 
024560 
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025766 


000340 
001120 
026166 
026162 


025040 
026164 


026164 
026517 


024402 
026164 


026164 


026472 
154524 


000001 
026206 
026204 
026202 
001366 
000040 


026534 
155360 


155364 


007360 
000377 


000340 
025476 
026204 
026202 


010000 
001366 
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001126 


154442 


001360 


001366 
001366 


001366 
155264 


-BYTE 


XBEGIN: 
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SAVLIN 


: 
RS,SET 


#PR7 
STACK, SP 
LOCKUP 
_ 


2 
ATEST2,$LPADR 
STFLG 


1$ 
STFLG 
-MCABLE 
1$ 


AMTEST1,$LPADR 
STFLG 


age ples TO BE FILLED 
NUMBER OF LOCATIONS 


Py 


;LOCK OUT INTERRUPTS 
SET UP_PROCESSOR STACK 
:CLEAR TIMEOUT 

sECHO OR CABLE TEST ? 


sECHO 

; CABLE TEST 
;ARE YOU LOOPING ? 
7YES 

NO 

3; TYPE CABLE TEST 
;SET UP ECHO TEST 
sARE YOU LOOPING ? 
s VES 

;NO 

3; TYPE ECHO TEST 

= START TESTING 


JMP LPADR 
;THIS TEST WILL ACCEPT 1 CHARACTER AT A TIME 


(IN INTERRUPT 


MODE) AND TRANSMIT THAT SAME CHARACTER, 


ONE LINE AT A TIME, ANY LINE 0 THRU 7 (OCTAL) 


DEVICE.CLR 
MOV 


R4 
(R5)+,@DZTDR 
3$ 


PC, SERV.G 
#377. aSuR 


BEQ TEST 
DEVICE.CLR 


MTPS #PR 

MOV A#XEOP ,NEXT 
DEVICE.CLR 

MOV AR 


NUML IN,P 
BIS SPEED ,PAR 


BIS #RCVON PAR 
MOV PAR ,@DZLPR 


CLEAR D211 


:SET TCR BIT 
:SET PARAMETERS 
SET BAUD RATE 


;LOAD PARAM. 

SET SCANN ENABLE 
FeoY? MESSAGE BUFFER 
3BR IF YES 

; WAIT 


[NO TRDY SET! WHY? 
RESET COUNTER TO 0 
[LOAD CHAR 


*<*G>? 
;RE-DO QUICK BROWN? 
;BR IF REPEAT PATTERN 


;LOCK OUT INTERRUPTS 


SELECT LINE # & SET INTERRUPT ENABLE 
‘a LINE SPEED AND 

HARACTER LENGTH (TRANS. & REC.) 
‘MAKE SURE RECEIVER IS TURNED ON 
[LOAD THE LINE PARAMETER REGISTER 
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012777 024 155276 MINTSVC,@DZRIV ;SET UP INTERRUPT SERVICE 
013777 155272 PRIO,aDZRIS aor LEVEL 


aw_eEssi LLOW_ INTERRUPTS 
155226 MO PRIE | MSENAB, apzcér” SET, Mee The INTERRUPT ENABLE 
-MCHAR ;TYPE '‘ANY CHARACTER’ 


a$TkS ZF SOMBODY HITS A KEY- GET NEW LINE # 
1$ SLOOP HERE 

154334 a$TkKB CLEAR CHAR 

007360 PC,SERV.G [MAKE SURE IT WASN'T <*G> 

024252 LINEX 3 


THE FOLLOWING IS THE RECEIVER eee SVC ROUTINE 
155174 INTSVC: ts TB a@DZCSR TEST REC. FLAG 


+4 
ERROR - INTERRUPT NOT CAUSED BY FLAG 


4 
155170 026212 aa Ae 
+ 


23 ;NON- VALID CHARACTER 
020000 026212 WBIT13,RECDAT  :CHECK FOR FRAMING ERROR 
E +4 ‘BR IF NO ERROR 
024674 25 [EITHER SOMBODY HIT THE 
BREAK KEY'' OR YOU HAVE AN ERROR! 
024676 026212 026214 RECDAT, TBUF “MOVE CHARACTER TO OUTPUT AREA 
0247 RECDAT, INBUF | :MOVE CHARACTER TO CHE Ck FOR *C 
#*C<17?>, INBUF :STRIP JUNK PLUS PARITY 
026212 #174577, »RECDAT SAVE ONLY LINE NUMBER 
026212 SAVLIN,RECDAT :DOES THE LINE # COMPARE? 
* 


iS :*WRONG LINE NUMBER 
155070 WMSENAB,@DZCSR START THE TRANSMITTERS SCANNER 
000003 INBUF , #3 :IS IT A *C ? 


BNE 1$ i 
DEVICE.CLR 
025476 MOV AXEOP, (SP) ; CRUNCH STACK 


: R3 INITIALIZE DELAY 

026206 155054 MO NUMTCR,@DZTCR ENABLE THE LINE 
155034 : aDZCSR Boge pl hie READY? 
BM 2$ IF YES BRANCH ; 
R3 > INCREMENT DELAY 
:D LAY DONE? 


10$ E 

3 : TRANSMIT READY NOT SET! 
026214 155042 t TBUF ,a@DZTDR ; TRANSMIT THE CHARACTER 
000140 155010 MOV #RIE 'MSENAB,@DZCSR RESTART THE RECEIVER 
155020 aDZTCR 7CLEAR TCR BIT 


THIS TEST TRANSMITS A BINARY COUNT PATTERN 
:VIA INTERRUPT MODE TO THE RECEIVER 
THE LINE UNDER TEST MUST BE TERMINATED WITH THE TEST CONNECTOR 
000340 TéST2: MTPS #PR7 DISABLE INTERRUPTS 
000002 001122 MOV #2,$TSTNM 
025052 025476 001360 MOV A#XEOP NEXT 
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4989 025060 104413 DEVICE.CLR : 
4990 s*TEST TO VERIFY THAT SETTING ot FOR A GIVEN LINE 
NG UP *'CO"* AND ‘RING’' FOR THE SAME LINE 
PNL MUST HAVE JUMPER FROM DTR TO RQST TO SEND 
:*IN ORDER FOR THIS TEST TO WORK! 
012737 025070 001362 MOV #1$,LOCK ; LOOP 
7 026206 154762 1$: NUMTCR, -@HDZTCR :SeT DTR 


026206 NUMTCR,RS SBUILD EXPECTED 
WAB R PUT IN HIGH BYTE 
026206 NUMTCR,R5 ; 


;WAIT FOR CABLE DELAY 
154742 MOV @DZMSR ,R4 sREADY MODEM BITS 

RS,R4 sARE THEY OK? 

2$ BR IF YES 

22 3B THE TEST CONNECTOR ON? 

S RIGHT Poo BEEN = al 

aC SO- YOU HAVE A PROBLEM 
MODEM BITS NOT RIGHT 


SCOP1 ; 
3 $ DEVICE.CLR INIT 0211 
*026202 MOV SPEED ,PAR SET LINE SPEED 
7 0262 001366 NUMLIN, mae SELECT LINE # &@ REC. INTERRUPT ENABLE 
#RCVON ,P ENABLE THE RECEIVER FOR THIS LINE 
PTIE RIE | MSENAB, @DZCSR ;SET TRANSMITTER INTERRUPT ENABLE 
#INTREC,@DZRIV ;SET UP INTR SERVICE 
PRIO,aDZRIS SET UP LEVEL 
MINTRAN,@DZTIV ;SET UP INTR SERVICE 
026210 154666 PRIO,aDZTIS SET UP LEVEL 
- R1 [RX DATA POINTER- SET TO 0 
R2 :TX_DATA poe ve SET TO 0 
oes 154626 MOV ower ; SET TERS AND TURN ON RECEIVER 


10643 @4LESS 
013777 026206 154620 MOV NUMTCR,@DZTCR SET UP TCR BIT 


;YOU RETURN - a AFTER EVERY wt they INTERRUPT 
105777 += 153722 : TSTB a$Tk :1F SOMEBODY HITS A KEY- GET A NEW LINE # 
100006 BP’ 1$ 7BR IF NO KEY HIT 
ERAS | a$TKB : CLEAR CHAR 
0 47 ae -G MAKE | —- IT WASN'T <*G> 
LIN 
1$: LOCKUP : INC TIMEOUT FLAG 
SPIN ;1F NOT 0 RETURN SPINNING 
ERROR 11 > *RECEIVER FAILED TO INTERRUPT CHECK CABLE/TERMINATOR 
QUITS: DEVICE.CLR 
oene7e JMP XEOP :CALL_FOR END OF PASS 
026166 INTREC: LOCKUP :CLEAR TIMEOUT FLAG 
154534 T aDZCSR TEST REC DONE 


+4 YES 

4 7*FALSE INTERRUPT 
154530 026212 MO wr Gea SAVE WORD 
+ 


23 ;*NON VALID CHARACTER 
040000 026212 anit 18 AECOAT :DATA OVERRUN ? 
+ 


24 sOVES 
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032737 026212 oe bhcemesaan: at ERROR ? 
a? Ps 
25 s*VES 
026212 IT 0 ‘inane: sPARITY ERROR ? 
* hy 


26 YES 
R1.R5 :SET EXPECTED 
#°0<377>,R5 CLEAR HIGH BYTE 
RECDAT, RG T F 
#*°C<377>,R4G “CLEAR HIGH BYTE 
RS.R4  :0K? 
4 

§ ;DATA ERROR 
174377 026212 #174377,RECDAT SAVE ONLY LINE NUMBER 
WAB —s RECDAT 


026212 
001372 026212 MP en :DOES THE LINE # COMPARE ? 
.+ 


;YES 
15 WRONG LINE # 

000377 R1 4377 ;LAST CHARACTER ? 

BNE 1$ 


025270 a TS, (SP) CRUNCH STACK 
: R1 ;UPDATE EXPECTED DATA 
025236 MOV #SPIN, (SP) CRUNCH STACK 
154360 3 @DZCSR ;TEST TRANSMIT FLAG 
8M .+4 


3 *FALSE INTERRUPT 
154374 MOVB R2,aDZTDR : TRANSMIT A_ CHARACTER 


R UPDATE TX DATA 
025474 000002 TI RETURN 
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5077 


SEPERATE 


WW Nonono ed ek ed ed ed ed 


DV PV DV PV PV PV SV SV SUPUPU SUDEP SUSU STS TT IT 


025476 
025500 
025502 
025506 
025512 


025516 
0 


0 
025672 


a Pe 
1:03 
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o--O000 


S 


012704 


062705 
105337 


026170 
001123 
024302 


025702 
025704 
025706 
025710 
025711 
010620 
000015 
000060 
000071 


000060 


000015 


025704 
025702 
025710 


025706 


000002 
925711 


26-NOV-79 11:06 PAGE 105 
CZDZA DZ11 DEVICE DIAGNOSTICS. 


sEND OF PASS 
“RESTART TEST 
XEOP: TYPE :TYPE NAME OF TEST 
MPASS 
CLR LAST ZCLEAR LAST ERROR PC 
LRB ~—s- SERFLG [CLEAR ERROR FLAG 
RSTRT: JMP XBEGIN 
; CONVERT DECIMAL ASCII STRING TO OCTAL 
.PARMD: MOV (SP) 
MOV (R5)+,6$ 
MOV (R5)+.7$ 
MOV (R5)+.8$ 
MOVB (R5)+,9$ 
MOVB  (R5)+,10$ 
MOV R5, (SP) 
2$: CLR os 
MOV #INBUF ,R4 
CMPB ss #15, (RG) 
BEQ 3$ 
1$: CMPB ss (RG) , #"0 
BLT $ 
CMPB ss (RG) ,#"9 
BGT 
BICB = #0, (R4) 
CLR R2 
BISB (R4)+,R2 
ADD R2,R5 
CMPB —s-s-#*15,, (R&) 
BEQ 4$ 
ASL R5 2X2 
MOV R5.R2  ;SAVE X2 
ASL R5 7X4 
ASL R5 7X8 
ADD R2.R5  :TIMES 10 
BR 1$ 
3$: INSTER 
2$ 
;TEST TO SEE IF NUMBER IS WITHIN LIMITS 
4$: CMP R5,7$ 
1 oS 
CMP R5,6$ 
BLO 3$ 
BITB 9$.R5 
3$ 
;STORE NUMBER AT SPECIFIED ADDRESS 
MOV 8$.R4 
5$: 


MOV R5,(R4)+ 
#2,R5 
DECB 108 


SEQ 0104 






















8 9 
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5133 025676 001372 BNE 5S 

£134 025700 000002 RTI 

5135 025702 000000 6s: 0 

5136 025704 000000 7$: 0 

5137 025706 000000 : 8 

5138 025710 000 9$: -BYTE 0 

5139 025711 000 10$: {BYTE 0 

10 

5142 ;COMPARE THE FIRST CHARACTER, IN THE TELETYPE INPUT 

5143 ZBUFFER TO THE CHARA ACTERS ES AND 

5144 ZF THE CHARACTER IS ‘E'' CLEAR MIE FLAG 

5145 {TF THE CHARACTER 18 ‘C'" SET THE FLAG 

5147 025712 017605 000000 .PAWCH:MOV a(SP) ,RS 

5148 025716 142737 000040 010620 BICB #40, INBUF ;SET FOR LOWER CASE INPUT 

5149 025724 122737 000105 010620 (MPR #E. INBUF IS 17 'E ? 

5150 025732 001002 BNE —-‘18 

5151 025734 105015 CLRB = (RS) ;000 

5152 025736 000406 BR 2$ a 

5153 025740 122737 000103 010620 1$: CMPB = #"C, INBUF IS IT "2 

5154 025746 001005 BNE 

§155 025750 112715 177777 MOVB = #=1, (RS) :3177 

5156 025754 062716 000002 28: ADD ~—s #2, (SP) 

5157 025760 000002 RTI 

5158 025762 104404 3$: _INSTER ;RETRY 

5159 025764 000752 BR .PAWCH 

5160 

5161 

5162 

5163 ;THIS ROUTINE CONVERTS LINE SPEED (LINESP) AND 

5164 “LINE NUMBER (SAVLIN) FOR DZLPR. DZTCR AND DICSK 

5165 ZREGISTER USAGE. 

5167 025766 013737 001372 026204 SET: MOV SAVLIN,NUMLIN SAVE SAVLIN 

5168 025774 013700 001372 XTCRO: MOV —- SAVLIN. RO COPY THE LINE NUMBER FOR LOOP CONTROL 
5169 026000 005037 026206 CLR NUMTCR :SET A DEFAULT OF LINE 0 OR NO LINES 
5170 026004 012702 000001 MOV = #1,,Re SET A BIT POINTER TO THE FIRST LINE 
5171 026010 005300 XTCR1: DEC ——RO REDUCE THE INDICATOR.IS IT MINUS YET? 
5172 026012 * 100402 BMI SETI ZIF SO, R2 POINTS TO THE RIGHT LINE 
5173 026014 006302 ASL —R SIF NOT, MOVE THE POINTER TO THE NEXT LINE 
5174 026016 000774 BR XTCR1 GO SEEIF THIS LINE IS THE ONE 

5175 026020 012701 026062 SET1: MOV  —- #TABLE2,,R1 

5176 026024 010237 026206 MOV —sR2, NUMTCR ;COPY THE CORRECT BIT POINTER 

5177 026030 022137 026200 1$: CMP — (Ri) +, LINESP 

5178 026034 001407 BEQ so 

5179 026036 005721 TST —- (R14 ;1S IT THE END OF TABLE? 

5180 026040 001373 BNE —-'1$ ZNO 

5181 026042 104402 026310 TYPE =, MINVAL ZINVALID BAUD RATE BEGIN AGAIN 

5182 026066 012705 024234 MOV  #BAUD,RS ;JUMP TO BAUD THRU’ R5 

5183 026052 000402 BR 3 

5184 026054 011137 026202 2$: MOV  —— (R1), SPEED ;SET UP BAUD RATE 

5185 026060 000205 3$: RTS RS 

5186 

5187 

5188 
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5189 7 THE FOLLOWING IS A TABLE OF LEGAL BAUD RATES (8 BITS/CHAR) 
5190 026062 000062 TABLE2: WORD 350 BAUD 
5191 026064 ay WORD 10070 ; 
2136 0. 00011 «WORD 75. 375 BAUD 
5193 026070 010470 WORD 10470 : 
5194 0260 000156 -WORD 110. 2110 
5195 026074 011070 «WORD 11070 :TWO STOP BITS : 
5196 026076 000207 WORD 135. 3134.5 
5197 026100 011470 «WORD 11470 :TWO STOP BITS 
5198 026102 000226 -WORD 150. 3150 
5199 026104 012070 -WORD 12070 TWO STOP BITS 
5200 026106 54 -WORD 300. 3300 
5201 026110 012430 «WORD 12430 ONE STOP BIT 
5. 026112 11 -WORD 600. 2600 BAUD 
5203 026114 013030 -WORD 13030 ;ONE STOP BIT 
5204 026116 002260 -WORD 1200. 31200 BAUD 
5205 026120 013430 -WORD 13430 ONE STOP BIT 
5206 026122 003410 -WORD 1800. : 1800 BAUD 
5207 026124 014030 -WORD 14030 zONE STOP BIT 
5208 026126 3720 -WORD 2000. 22000 BAUD 
5 026130 014430 «WORD 14430 :ONE STOP BIT 
5210 026132 540 -WORD 2400. 32400 
5211 026134 015030 -WORD 15030 ONE STOP BIT 
5212 026136 007020 - WORD : 23600 BAUD 
5213 026140 015430 -WORD 15430 :ONE STOP BIT 
5214 026142 011300 -WORD 4800. 24800 BAUD 
5215 026144 016030 WORD 16030 ONE STOP BIT 
5216 0261 016040 -WORD 7200. :7 BAUD 
5217 026150 016430 -WORD 16430 sONE STOP BIT 
5218 22600 - WORD : 
5219 026154 017070 -WORD 17070 : 
asst 026156 177777 000000 «WORD -1,0 : TABLE TERMINATOR 
5222 
5223 026162 000000 WCHFLG:0 ECHO OR CABLE FLAG 
5224 026164 000000 STFLG: 0 [PROGRAM START FLAG 
5225 1 000000 LOCKUP: 0 ; TIMEOUT FLAG 
5226 000000 LAST 0 :LAST ERROR PC 
5227 026172 000000 TDATA: 0 
5228 026174 000000 RDATA: QO 
5229 026176 000000 BYTCNT: 0 
5230 026200 000156 LINESP: 110. DEFAULT BAUD RATE 
5231 026202 006307 SPEED: 6307 DEFAULT 110 BAUD, 8 BITS/CHAR, 
5232 sFDX, 2 STOP BI 
aSez 026204 000100 NUMLIN: 100 ;DEFAULT VALUE, REC. INTERRUPT ENABLED 
5235 026206 000001 NUMTCR: 1 DEFAULT VALUE,TCR BIT 0 
5236 026210 000240 PRIO: 240 :DEFAULT DEVICE PRIORITY 5 
aSee asesi¢ 000000 RECDAT: 0 
5239 026216 053200 041505 047524 MVECTO: .ASCI? <200>/VECTOR ADDRESS- / 

026240 047117 051124 ASCIZ <200>/CONTROL aegisten ADDRESS- / 

026274 050200 051501 020123 MPASS: .ASCIZ <200>/PASS DONE./ 

026310 4 053116 04 MINVAL: .ASCIZ <7 INA. 18 BAUD RATE - / 

026336 046200 047111 035105 MLINE: .ASCIZ <200>/LINE: 

041200 052501 020104 MSPEED: .ASCIZ <200>/BAUD RATE =f 
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026364 ¢ 050131 020105 : <200>/TYPE A CHAR. ON DZ11 TERMINAL / 

026424 05 4510 : <200>/WHICH TEST ? ECHO OR CABLE (E OR C) / 

026472 M : <200>/TERMINAL ECHO TEST / 

026517 200 0503 04610 : .ASC <200>/CABLE TEST / 

026534 : .ASC <S77><193< Soe bom hedee dan 4 

026543 1 05044 ASC 1TH OVER THE LAZY DOGS BACK 0123456789/ 
026640 006777 177412 " <37 Re sors ies Dae et ER Ser 


J EERE AEAAERAEAEEERERAEEAEERREAERAEAERAERERERERERERRERRREERREE 


sUTILITIES 


J RRA ERAEEREEEREREEEEERAEERAEREREEERERERREREERRERREERRREE 


; THIS war CALCULATES PRIORITY LEVEL,SETS UP CSR'S,SETS UP VECTORS. 
OZLEV: ASL DZPRT ;BUILD PRIORITY IN THIS LOCATION 
USING ARITHMETIC SHIFTS, ROTATE 
: THE PRIORITY LEVEL PAST 
: THE BIT POSITIONS CORRE- 
SPONDING TO THE CONDITION CODES 
;MOVE THIS TO LESS1 
0 UB : CREATE a NEXT LOWEST PRIORITY 
027062 S INSURE THAT THE TNZVC BITS ARE CLEAR 
PLACE THE BASE VECTOR ADDRESS IN RO 
CALCULATE THE RECEIVER INTERRUPT STATUS ADDR. 
STORE IT HERE 
: CALCULATE an TRANSMITTER INTERRUPT VECTOR 
¢ 
0. 062700 ° : CALCULATE THE TRANSMITTER VECTOR STATUS ADDRESS 
026750 RO,DZTIS [STORE IT HERE 


Bg Be a UP POINTERS FOR THE GIVEN 9211. SBASE IS THE BASE ADDRESS 
026754 : MOV SBASE ,RO :COPY THE ADDRESS BEING LOADED 
002042 RO,DZCSR 7 XXX0 


RO 
RO,HDZCSR 3 XXX 
RO 


RO, DZRBUF 3 XXK2 
ee 7XXX2 


RO, HDZRBUF TXXX3 
RO,HDZLPR 2XXx3 


RO 
~ Saas XXKG 
RO,HDZTCR MXX5 
RO 


RO,DZMSR XXX6 
~ Seabee XXX6 


RO,HDZMSR 7 XXX7 
~ Saat eae 3 XXX7 


;LEVEL TO ALLOW INTERRUPTS 
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7 ERROR _ TABLE 


-ERRTAB: ;ERROR 0 


027072 ; ERROR 
027074 
027076 


027357 ERROR 
030577 
030764 
027405 , sERROR 3 
030632 
027112 031002 
027114 027444 ERROR 
027116 030632 
027120 031002 
027122 027473 ERROR 
027124 030644 
027126 031010 
027522 ERROR 
030644 
031010 
027560 ERROR 
030632 
027142 031002 
027144 027621 Mg ERROR 
027146 030632 
027150 031002 
027152 027663 ERROR 
027154 030632 
027156 031002 


027721 ERROR 
030632 


; ERROR 
027172 
027174 ; ERROR 
027176 03063 3 
027200 


027202 ; ERROR 
027204 000000 0 
027206 
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030105 
030632 


027214 


027216 ;ERROR 17 
027220 
027222 


027224 
027226 
027230 


027232 030255 ;ERROR 21 
027234 030673 
027236 031026 


027240 030305 ZERROR 22 
027242 030644 
027244 031010 


027246 : ZERROR 23 
027250 
027252 
027254 
027256 
027260 


027262 


027270 
027272 
027274 
027276 


027300 
027302 
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atray MESSAGES 

Z <200>/NO SLAVE SYNC RESPONSE FROM DZi1 REGISTER/ 
<200>?REGISTER R/W FAILURE? 
<200>/ TRANSMIT READY wr ee? NOT SET/ 
<200>/RECEIVER DONE NOT SET/ 
<200>/DATA COMPARISON ERROR/ 

‘°200>/DZ11 *RECEIVER BUFFER* ERROR/ 
s.00>/TRANSMITTER FAILED TO INTERRUPT/ 
<200>/UNEXPECTED TRANSMITTER INTERRUPT/ 
<200>/RECEIVER FAILED TO INTERRUPT/ 
<200>/UNEXPECTED ay toe INTERRUPT / 


TOO SOON/ 
D TO SET/ 
<200>/ACTION DETECTED ON‘INVALID LINE./ 
<200>/READING DZRBUF DID NOT ‘a? SILO ALARM/ 
<200>/DATA VALID SHOULD NOT BE SET/ 
<200>/RECEIVER DONE SHOULD ws BE SET/ 
<200>/RELATIVE TIMING ERROR./ 
<200>/MODEM SIGNAL ERROR ON tana TEST/ 
<200>/DATA VALID IS NOT SET!/ 
<200>/DATA OVERRUN IS SET!/ 
<200>/FRAMING ERROR ap te 
Meo: , <200>/PARITY ERROR OCCURRED/ 
020114 i <200>/FULL BINARY COUNT PATTERN NOT RECEIVED/ 


020120 3 ‘ <200>/TRAP PC DZ11 REG/ 
042520 : ° <—res ne, FOUND REGISTER/ 
020105 : ° <200>/LINE NO./ 
: <200>/EXPECTED FOUND LINE/ 
<200>/TX LINE PREVIOUS TIME ACTUAL TIME PARAMETER/ 


™ TABLES FOR ERROR MESSAGES 
6,3 
6,1 


6.4 
6,1 
6,1 


3,1 


031020 
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031022 003 001 MNT = s «Bot 
031024 001372 SAVLIN 
031026 000004 DTS: 4 
031030 003 005 Ve Bes 
031032 001372 SAVLIN 
031034 006 011 -BYTE 6,9. 
031036 001214 $SREGS 
031040 + 006 007 BYTE 6,7 
031042 001220 $TMP1 
031044 006 001 *BYTE 6,1 
031046 001400 REGIST 
7 TABLE OF DELAY TIMES FOR INDIVIDUAL BAUD RATES 
« 
031050 002450 DLYTBL: 2450 é :TIME FOR 50 BAUD 
031052 001560 1560 ;TIME FOR 75 BAUD 
031054 001120 1120 7TIME FOR 110 BAUD 
031056 750—s :TIME FOR 134 BAUD 
0 0 ;TIME FOR 150 BAUD 
031062 000330 330 :TIME FOR 300 BAUD 
000150 150 i: TIME FOR 
0 60 ;TIME FOR 1200 BAUD 
031070 0 40 ;TIME FOR 1800 BAUD 
031072 000030 30 :TIME FOR 2000 BAUD 
031074 000020 20 7 TIME FOR 2400 BAUD 
031076 000010 10 sTIME FOR 3 
031100 000001 ; TIME FOR 4800 BUAD 
031102 000001 1 ; TIME FOR 7200 BAUD 
04 000001 1 ;TIME FOR 9600 BAUD 
031106 000001 1 s TIME OF DELAY FOR 19200 BAUD 
sDELAYS WERE COMPUTED TO ALLOW MAXIMUM TIME AT EACH BAUD RATE 
;FOR ALL TESTS TO FUNCTION CORRECTLY ON A PDP11/45 WITH BIPOLAR 
sMEMORY. THE TIMES WERE ALSO TESTED ON AN 11/40 AND 11/10. 
031110 CORMAX : 
002362 -=2362 
002362 000240 NOP 
002364 000240 
001512 -=1512 
001512 100000 100000 
- 011572 =11572 
011572 105720 TSTB (RO) + 


000001 END 
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160010 
000000 
000000 
000000 
001412 


011612 
000300 
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MINN NNNNNN NNN ONON ON 


* 
= 


— tt NNN 2 2 2 9 Ss 9 Ss SS SS Ss SS Ss SS SS SS Ss SS Ss Of af) SS 9 ts 
NNO oO oe AKO 
~N 
alia BSB 


0,0 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
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21378 
2093 

2095 
1200 
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1228 


2612* 2613 2615* 2620 2621* 2622 


22284 
3123 3313 3327 3371 3380 3517 


21354 2410 
21364 






SEQ 0112 


2625* 


4057 4173 4418 4463 4577 
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1187 26 
27 


12 
12 
5182 


23014 
1050 1883 1886 2389 2391 2393 2448 


4662* 46704 
4663* 46714 
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nnnnun 
=n" ow = 
ANSSRRER o 

eeeeere 


00 
104417 


000020 
177570 
104414 


006350 
= 104413 


3673* 


5329 5333 5337 5345 5349 5355 5365 


4148 4652 
2607 2687* 2778* 2782* 2787 2806 


DZCR14 





CZDZA-F 0 
CZDZAF .P11 
DZCRIS 001734 
DZCR16é 001750 
DZCRi7 001764 
ozc 001530 
DZCR 001544 
DZCR4 1560 
DZCRS 001574 
DZCR6 001610 
DZCR7 001624 
DZCSR 002042 
DZLEV 026652 
DZLPR 002052 
DZLVO 001504 
DZLV1_ 001520 
DZLV10 1644 
DZLV11 1660 
DZLV1i2 001674 
DZLV13 001710 
DZLV14 001724 
DZLV15 001740 
DZLV16 001754 
DZLV17 001770 
DZLV2 1534 
DZLV3 001550 
DZLV4 001564 
DZLV5 1 
DZLV6 = 001614 
DZ2LV7 001630 
DZMSR 2062 
DZNUM =: 001410 
DZPRT 27 
DZRBUF 002046 
DZRIS 002074 
DZRIV. 002072 
DZTCR 002056 
DZTDR 002066 
DZTIS 002100 


MACY11 
26-NOV-79 


( 


52) 


=3 
Were em rr Om Om OS — yp 


Susy 


wm PP a a) 
SesecKee SS 
ZBZRBVBRVAB 


VSS 
er 
wz 


26-NOV-79 


11:06 PAGE 


117 


Ll 9 
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2332* 
347 


4762* 
5263* 


3715* 
4908* 


4 
4011* 


3855 
5246* 


3749 
4848 


4303* 
4221* 
3599* 
4182* 
4905* 
3881* 


4977* 
4416 


5 
4417* 


3879 
5248* 


3978 
4949 


4415* 
4302* 
3649» 


4271* 
4979* 


4049* 
5278* 
4496* 


SEQ 0115 


3926 
5249 


4149 
5039 


4495 
4414 
3657* 
4309* 
5022s 
4109* 
4566* 
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002076 o7e7s 3805* 3852* 3876* 3927* 4010" 4180* 4304" 4416* 4493* 4563*  4619% 
* 


kennee 


1632 1635 2827 


2724 
1803 2615 2625 2673 2721 2727 
3372 


23994 
1953* 1955* 1958* 
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FRMERR= 020000 9524 3741 4368 4726 
HALTS 007224 2361 24104 
HDRFLG 001416 1297# 1592* 1602* 1746* 1799 1801* 
HDZCSR 002044 15064 3225* 3640 4332 4677 5265* 
HDZLPR 002054 15108 5271* 
00 15144 5280* 
ZRBU 002050 15084  5270* 
HDZTCR 00, 15124 8 3338* 3344* 3385* 3391* 4851* 4852" 4995* 5275* 
HDZTDR 002070 1516 3726* 3753*  5281* 
HILIM 006346 2178* 2206 22254 
HT = 000011 8084 2040 2081 
INBUF 010620 ei8 2184 2543* 2544 2549 2554 25684 4957* 4958* 4965 5096 5148* 5149 
INIFLG 001415 12964 1583 1588* 1596 1606* 1732" 1794 2720* 
INIT 021252 42924 4297 
INIT1 021276 4299% 4301 
INSTER= 104404 14754 2200 2560 5115 5158 
INSTR = 104403 hy i$y3 1627 1639 1674 1681 1738 1771 1828 2640 4830 4838 4858 
INSTR2 006146 2155 21674 
INTRAN 025456 5016 50714 
INTREC 025276 5014 50354 
INTSVC 024642 4933 49464 . 
IOTVEC= 000020 9034  2828* 
LAST 026170 4820* 5083* 52264 
LESS1 027062 3849* 3871* 4310* 4935* 5021* 5249*% 5250*  5251*% 52844 
LF = 000012 8094 2075 2081 
LIMITS 006274 2194 22064 
LINE 001364 1277# =2631* 3322 3376 3415 3454 3463 3541 3556 3630 3713 3723 3773 
3781 3842 3850 3918 3931 4026 4035 4078 4092 4208 4225 4289 4292 
4309 4342 4376 4403 4450 4544 4568 4600 4624 
LINESP 4867 5177 52304 
LINEX 024252 4870# 4942 5029 
LINEO 001506 -1350# 1690* 1743 1753 1779 
LINE? 001522 ‘13574 
LINE10 001646 14064 
LINE11 001662 14134 
LINE12 001676 14204 
LINE13 001712 14274 
LINE14 001726 14344 ‘ 
LINE1S 001742 14414 
LINE16 001756 14484 
LINE17 001772 - 14554 
LINE2 001536 13644 
LINES 001552 13714 
LINES 001566 13784 
LINES 001 13854 
LINE6 001616 13924 
LINE7 001632 13994 
LOBITS 006352 2180* 2210 2227h ’ 
LOCK 001362 12724 1992 1994 2348* 2385 2843* 2849% 2855* 2861* 3077* 3106* 3120" 3159* 


3310* 3368* 3450" 3537* 3605* 3706* 3759% 4074* 4204" 4277% 4444% 4994s 
LOCKUP 026166 4884* 5030* 5035*  5225# 
o. IM 006344 2177* 2208 22244 
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LP2 = 00000 9734 
LP3 = 00000 974e 
LP4 = 000004 9758 
LPS = 000005 976m 
LP6 == 090006 9778 
LP? = 000007 9784 = 
MAINT = 000010 926# 1982 2552 2917 3213 3226 
MANTO 001512 1352@ 61677. «1751S 2785 
MANT] 001526 1359" 
MANT10 001652 14084 
MANT11 001666 14154 
MANT12 001702 1422" 
MANTI3 001716 14298 
MANT14 001732 14364 
MANTIS 001746 14434 
MANT16 001762 14504 
MANT17 001776 14574 
2 001542 13664 
MANTS 001556 13734 
MANT4 001572 13804 
MANTS 001606 13874 
MANIO 001622 13944 
MANT7 001636 14014 
MASTEK 010314 2387 25314 
01042 1760 25314 
MCABLE 026517 4891 on 
MCHAR 026364 4937 5239" 
MCSRX 010244 1877 2392-25314 
MDATA 010724 2281 2291 25724 
MEPASS 010063 1876 25314 
MERRPC 010371 2390 25314 
MERRX 010271 1885 25314 
MERR2 010122 25314 2603 2789 
010171 1820 25314 
MINVAL 026310 5181 
MLINE 026336 4873 52394 
*OCK 010215 1853 25314 
MEW 010317 1815 25314 
MATFLG 001417 12984 1979% 1982* 2332 2547" 2552% 2557s 
MODE 001370 1e7ow 1980 2635* 5318 = 3369 347835713707 «3729 39824136 4468 «4537 
MPASS 026274 5082 5239" 
MPASSX 010260 1882 25314 
MPFAIL 010020 2524 25314 
MQUICK 026534 4911 5239" 
010106 1858 25314 
MREGAD 026240 4839 5239" 
MSENAB= 000040 9284 2949 3186 3187 3213 3226 3412 3418 3462 3555 3632 3721 3787 
3809 3856 «= 3880 «= 3929. 4033 = 4048 = 4091) 4179S 4188 «= 4223S 4308 «= 4498 = 4567 
4623 4762.» 4909 4978 5013 
MSPEED 026346 4863 52394 
026472 4897 5239" 
MTITLE 001000 11 587 
MTSIN 01030 2388 = 2531" = 2641 
MVECTO 026216 4831 523 


bud 
MVECX 010252 1879 25314 
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CZDZAF .P11 26-NOV-79 11:05 

MWHICH 026424 4859 tad 

NEXT 001360 12714 7 427 840*  2883* 15® 7e# = =2979" = 3011" = 5043* = 5074" = 3117" = 55171 * 
3209* 249* 275* 309* 3320 367* O09 3449 3536* 3618*  3705*  3769* 3838+ 






3914* = 4022* 4073 4203* 4287* 4443* 4536 4592% 4926*  4988* 







NOLIST= s#eee8 781 

NUMLIN 026204 4906 4928 5011 5167* 52334 

NUMTCR 026206 4905 4971 4995 4997 4999 5022 5169" 5176*  5235# 
ODDPAR= 000200 9904 3711 4541 4548 4550 4597 4604 4606 

OFFSET 023766 4445* 4460" 4509% 4751 4753 47644 

ONFSTO= 000000 991 






534 4160 
001366 12784 = 2632* 3452 3539 3622 3674 3710 3771 3840 3916 4024 4076 4206 
$558 4540 45% 4906* 4907* 4908 4928* 4929* 4931* 4932 5010* 5011*  S0O12* 
PARAM = 104405 1477# = =1616 1629 1641 1683 1740 1773 1830 2642 4832 4840 4874 






POP2SP= 022626 9204 1578 2824 3869 3897 4001 4006 
PRIO 026210 4934 5015 5017 52364 
PRO 000000 






= 0 
2 = 

PR3 = 000140 8354 

PR4 = 000200 8364 5284 

PRS = 000240 8374 5283 

PR6 = 000300 8384 

PR7 = 000340 “aoe py 6A 1101 1559* 1848+ 2842 3936* 4222 4303 4305 43598* 4814 4882s 

* * 






177776 813 
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2522* 
4931 
3586 
4961 


3968 
4978 


2619* 
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PSW = 177776 134 
010046 9174 
PUSH1S= 005746 9154 
PUSH2S= 024646 9194 
VE C= 9044 2693* 24694 2503" 2509* 2521* 
QUITS 025270 50334 5065 
RCVON = 01 994 3623 4449 4452 4466 4477 
RDATA 026174 52284 
RDONE = 000200 930# 3174 3466 3493 3514 3559 
RECDAT 026212 4949% 4952 4956 4957 4959* 4960 
5059* 5060 52374 
REGIST 001400 12834 3553* 3722% 4483* 4648* 5383 
SREG 007222 2406 24094 
RESTAR 011434 2526 6664 
RESVEC= 000010 8994 
RESOS = 104410 14834 24 
RIE = 000100 9294 3013 3213 3226 3809 3880 
4570 4623 4626 4668 4762 4936 
RINGO = 000001 0344 
RING? = 000002 10354 
RING2 = 000004 10364 
RINGS = 000010 10374 
RING4 = 000020 0384 
RINGS = 000040 10394 
RING6 = 000100 10404 
RING7 = 000200 10414 
RLO = 9594 
RL1 = 000400 
RL2 = 001000 9614 
RL3 = 001400 9624 
RL4 = 002000 9634 
RLS = 002400 9644 
RL6 = 003000 9654 
RL7 = 003400 
RSTART 021242 2 
RSTRT 025512 50854 
1406 2 1565* 2607 2610* 2611* 2618* 
RXISR1 023554 494 47204 
RXSVC = 021542 4302 43544 
RXTCR 022020 4289 4318 4392* 44194 
SAVLIN 001372 2804 8 3413* 3432s 60* 3477 3505* 
3670* 3685*  3689*  3719% 3728 3755* 
4084* 4095 4135 4169* 4214* 4231 
4479% 4480" 4554% 4610* 4641* 4679 
4961 5060 5167 168 5383 
001411 12884 1561* 1699* 1887* 1889*  2777* 
SAVPC 001402 12844 2233* 2433 
SAVOS = 104407 14814 2366 
SCOP1 = 104401 ison 3 te 3103 3146 3350 3397 
SERV.G 007 1939 2354 2437 2444 4507 4921 
T 025766 880 51674 
SETAPT 011440 1591 26734 
SETFLG= 104406 14794 676 
SET.PS 010766 096 25754 
SET1 026020 5172 51754 


5012 

3743 3812 
5039* 5042 
4007 4223 
5013 

3547* 3570 
3848*  3924* 
4336* 4361* 
4683*  4739* 
3524 3596 
5028 


3883 
5045 


4306 


4740* 


3754 


3956 
5048 


4498 


4401* 
4759* 


4168 


4054 
5053 


4500 


4189 


SEQ 0120 


5058* 


4567 


3664* 
4037* 
4446* 
4877 


4272 


CZDZA-F 0 
CZDZAF .P11 


MACY11 30A(1052) 
79 11:03 


26-NOV- 


26-NOV-79 11: 
CROSS RE 


1579s 
1990 
2463* 
1594 
2637 


1694 
1826 


1813 
2423 
1990 


2355 
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5184* 


2428 
4890* 


4217 
1594 
1997 
2470* 
4821 
4856 
1728 


4255 
4223 


4616 


1813 


2425 
4821 


1818 


1823 


1826 
2446* 


1851 
2456* 
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CZDZA-F 0 MACY1* 30A(1052) 26=-NOV-79 11:06 PAGE 124 
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$50 = 9964 4449 4452 

$600 = 003000 100e 

$7200 = 006400 10094 

$75 = 000400 9978 

$9600 _= 007000 10104 

TABLE2 026062 5175 51904 

TBITVE= 000014 9004 

BUF 026214 4956* 4977 52384 

TCRO = 000001 10154 3076 3185 

TCRI = 2 10164 

TCR2 = 10174 

TCR3 = 000010 10184 

TCR4 = 000020 10194 

TCRS = 000040 10204 

TCR6 = 000100 10214 

TCR? = 0002 10224 

TDATA 026172 52278 

TDO 001422 13024 3548 3569 3583 3597* 3810 3881 4085 4109 4110* 4215 


4243 4253 4298 4346 4347* 4453 4484 4558 4614 4686 4687* 





TD2 001426 13044 

TD3 001430 13054 

TD4 001432 13 

TDS 001434 13074 

TD6 436 13084 

TD7 1440 13094 

TEIGHT 002140 15444 

TEMP 10662 25704 

TEST1 024402 4893 49034 4923 

TEST2 025040 4887 49864 

TFIVE 002146 15474 

TIE = 9334 3045 3213 3787 3804 3856 3870 3875 3967 4007 4183 
4498 4567 4623 4664 4701 5013 

TKVEC = 000060 9074 

TLAST = 022772 2660 53834 

TLO = 000000 9384 

TL1 = 000400 9394 

TL2 = 001000 9404 

TL3 = 001400 9414 

TL4 = 002000 9428 

TLS = 002400 9434 

TL6 = 003000 9444 i 

TL? = 003400 9454 

TMTBL §= 002102 15284 4752* 4756 4758 

TPVEC = 000064 9084 

TRAPVE= 000034 9064 

TRDY = 100000 9344 3179 3183 3412 3420 3470 3521 3563 3789 3858 4103 

TRTVEC= 000014 9014 

TRO 001442 ie 4381 4383 4389* 4390 4405 4651 4654 4656 4660* 4734 

TR1 001444 13114 

TR2 001446 13124 

TR3 001450 13134 

TR4 001452 13144 

TRS 001454 13154 

TR6 001456 13164 
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CZDZA-F 0 MACY11 
CZDZAF .P11 26-NOV-79 1 


5 


( 


oO 


2664 28384 


AWWW eo 
OO ANU 
ee ne Te. 
gy2 


os 


1760 1802 1815 1853 1858 1876 1877 1879 
2165 2258 2291 2384 2387 2388 2390 2392 
2449 2477 2523 2639 2657 2662 2789 4891 
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175 062104 
T9600 002136 
VECMAP 012202 
VEC1 024032 
VEC2 24042 
WCHFLG 026162 
WRDOCNT 

WTBS.F 007176 
XBEGIN 024302 
XBX 766 
XCSR 742 
XEOP 025476 
XERR 764 
XHEAD 010376 
XMTCNT 001376 
XMTLIN 001374 
XMTSRV 023410 
XPASS 756 
XSTART 023770 
XSTATQ 104 
XTCRO 025774 
XTCR1 02601 
XTSTIN 007352 
XVEC 750 
Xx = 160210 
YY = 000500 
ZZ = 000020 
SAPTHD 001462 
SASTAT= xe2ae8 
SATYC 005 
SATY1 005562 
$ATY3 005570 
SATY4 00‘ 5 
SAUTOB 001154 
SBASE 001310 
$8D 0011’°2 
S$BDDAT 001" 
$CDW1 001314 
$CDW2 001316 
SCHARC 005556 
SCMTAG 001120 
$CM1 = 

SCM2 = 000014 
$cM3 = 

$CM4 = 000004 
$C 001262 
SCRAP = 177777 
SCRLF 001231 
$DDWO 001320 


MACY11 ane) 
11:03 


26-NOV-79 17:06 


2674 


50814 


4691 
4482 


13744 
13744 
13748 


2784* 
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13814 
13814 
13814 


5262 


13884 


13884 
13884 


13954 


13954 


13954 


14024 
14024 
14024 


14094 
14094 
14094 


14164 14234 
14164 14234 
14164 14234 
% 
29754 30014 
32418 3245 
3532" 36084 
40584 40694 


rd 
“SEQ 0124 


14304 
14304 
14304 
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2787* 


2947 
oa 


3o1¢0 022 40744 
4592 


2365* 4819s 


2422* 


vet 
Saez 


2124* 


CesseRgTy 


1972* 


1859 1978 1985 2427% 2429 2655* 2656*  2664* 2666 
4815*  4887« 4898 
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CZDZA Y11 
CZDZAF P11 26-NOV-79 


oO 


30A ( 
11: 


Sie Ss 
give © 


1340 1975 2025 


eee 


2126* 
2104 


EI 


2107* 


mo 


SR SS SO) RS PO SS HS SS SG 
Selee 


NONMNMNN ] —] SOW non —foror 


Nm 
RIN 
OOW 


25304 


06 
0 
2 
4 
0 
6 
2 


No 
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1973* 


4 1 OY 


1 
1 
1 
1 
1 
1 
1 
1 
5 
1 


— 
& 
N 
w 
7 
— 
~ 
co 
¥ 
- 
> > 
co 
= 


xkkaknee 


011574 


osm 
$¢ 


NNNNNNR 
BVRRBVRBRBRA 
3 
= 


WW 
NUN 
& 


— 2 —) — — —s — 2 3 


POWs 


eCeeeee 
ve 


RAO 
WsN— 
_ 


A) aed ced ed ed ed end eed deed 


ak ead nd ae ead eed eed eed ced end 
ORES 
MEERA W 


RSS8 
SER 
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1402 1409 1416 1423 1430 
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3709 3770 3827 3839 3899 3915 


2969 3033 


wh 
-00 
RA 


34 
4018 
1171 
1177 
28 
34 


&S 
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- ABS. 031110 000 


ERRORS DETECTED: 0 


CZDZAF .BIN, CZDZAF .LST/CRF/SOL/NL : TOC=CZDZ4F . SML,CZDZAF .P11 
RUN-TI 60 SECONDS 


ME: 80 6 OND 
RUN-TIME RATIO: 408/148=2.7 
CORE USED: 50K (99 PAGES) 





